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REM 


IDENTIFICATION 


PRODUCT CODE: AC-E057D-M( 
PRODUCT NAME : CZ2M9BDO 9312/1144 UB] BOOT 
DATE: OCT 1979 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DITITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
iHIS DOCUMENT. THE SOFTWARE DESCRIBED IN THIS 
DOCUMENT IS FURNISHED UNDER A LICENSE AND MAY ONLY 
BE SUED OR COPIED IN ACCORDANCE WITH THE TERMS OF 
SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUME S NO 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

artes ON EQUIPMENT THAT IS NOT SUPPLIED BY 
L. 


COPYRIGHT (C) 1978, 1979 BY DIGITAL EQUiPEMNT 


! 
MAINTAINER: DIAGNOSTIC ENGINEERING 
CORPORA T J ON 


C 
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HISTORY SECTION 


PBRDAO WAS RELEASED MARCH, 1978, 
PBRDBO WAS RELEASED JUNE, 1978. 

PBRD44O WAS RELEASED JANUARY, 1979 
°7™9BDO WAS RELEASED OCTOBER 1979 


REVISION 8 WAS CREATED TO PROVIDE THE FOLLOWING ENHANCEMENTS: 


1. PROPERLY CHECK THE BOOT 


ROM'S ALPHABETIC SEQUENCE AND, 


If NOT IN CORRECT SEQUENCE, PRINT THE CORRECT SEQUENCE 4S 


“y ERROR MESSAGE. ALSO 
FOR ROM IN SOCKET #2 IF 


CHECK FOR NC HOLES AND CHECK 
11/60 AND ONLY ONE ROM EXISTS, 


ELSE PRINT THE CORRECT SEQUENCE. 
2. THE DIAGNOSTIC CANNOT DETERMINE THE DEVICE CODE FOR A 


CONTINUATION ROM. THEREFORE, CONTINUATION ROMS ARE TREATED 
AS EXTENSIONS OF THE PRECEEDING DEVICE CODE ROM. ILLECAL 
PLACEMENT OF CONTINUATION ROMS ARE REPORTED IN ERROR 
MESSAGES. A DUPLICATE DEVICE ROM IS ALSO REPORTED IN 


AN ERROR MESSAGE. 


COMMENT FIELDS BEGINNING WITH THE CHARACTERS ‘';+"' 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV BO. 


REVISION C WAS CREATED TO PROVIDE 


THE FOLLOWING ENHANCEMENTS: 


t. TO UPDATE THE DIAGNOSTIC BASED ON FAULT INSERTION OF 


THE M9312 MODULE. 


" 2. TO ADD A * NO ROMS FOUND ' MESSAGE. 
3. TO SIZE FOR A FALSE ERROR CAUSED BY A REAL FAILURE TO. 
FIND THE POWER FAIL VECTOR WHEN ONLY THE CPU ROM !S 


PRESENT. THIS SHOULD NOT BE TREATED AS A FATAL ERROR 
(WHICH IT WAS IN REV. B) PREVIOULY , APT WOULD NOT RUN 
IN PRINTING MODE DISABLED DUE TO THIS ERROR. 


COMMENT FIELDS BEGINNING WITH THE CHARATERS °';-"' 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV. C. 


REVISION D WAS CREATED TO ACCOMODATE TESTING OF 11/44 UBI MODULE. 
THE UBI MODULE HAS LOGIC WHICH IS FUNCTIONALLY EQUIVALENT TO THE M9312. 


1, SINCE THE DIAGNOSTIC CALLS OUT E NUMBERS REFERENCING THE 


4 BOOTSTRAP & 1 


BOOT DIAGNOSTIC ROM IC'S, USE MFPT 


INSTRUCTION TO DETERMINE IF CPU IS 11/44. IF IT IS 


THEN USE SET OF 


E NUMBERS CONSISTENT WITH UBI MODULE. 


COMMENT FIELDS BEGINNING WITH THE CHARACTERS ‘';**'' 
IDENTIFY ALL LINES ADDED OR MODIFIED BY REV. D. 
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SEQ 0003 


1.0 ABSTRACT 
THIS PROGRAM VERIFIES THE ROM INFORMATION FOR THE M9312 BOOTSTRAP 


TERMINATOR OR 11/44 UBI TERMINATOR. 17 HAS TWO MODES OF OPERATION; STAND-ALONE MODE 
wl(H REQUIRES OPERATOR INTERVENTION AND APT=MODE. 


2.0 REQUIREMENTS 
2.7 HARDWARE 
ANY PDP=11 UNIBUS PROCESSOR WITH CONSOLE TERMINAL AND/OR HARDWARE 
SWITCH REGISTER 
M9312 BOOT STRAP TERMINA]OR 
4k MEMORY 


NOTE: IF 11744 CPU, M9312 BOOTSTRAP TERMINATOR IS NOT NEFDED 


2.2 SOF I WARE 
THIS PROGRAM REQUIRES THAT THE CORRECT OPERATION OF THE 


PROCESSOR, MEMORY AND CONSOLE TERMINAL HAVE BEEN VERIFIED BY THE 
APPROPRIATE DIAGNCSTICS. 


3.0 LOADING AND STARTING PROCEDURES 
3.1 LOAD THE PROGRAM BY ANY OF THE STANDARD PROCEDURES FOR ABSOLUTE PROGRAM FORMATS. 
3.2 STARTING ADDRESS 

200- DO CRC VERIFICATION AND SIZING 


3.3 RESTART ADDRESS 
204- RESTART WITHOUT SIZING 


7.4 SPECIAL FNVIRONMENTS 


THIS PROGRAM IS APT COMPATIBLE SEE SECTION FOR ETABLE SETUP. 
FOLLOW STANDARD APT PROCEDURES FOR LOADING AND STARTING. 


OPERATING PROCEDURE S 
OPERATIONAL SWITCH SETTINGS 








E 
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THE PROGRAM IS DESIGNED TO USE THE HARDWARE SwITCH REGISTER, 
HOWEVER IF THIS REGISTER IS NOT AVAILABLE THE PROGRAM WILL USE 
LOCATION 176 AS THE SWITCH REGISTER. 


Sw 75=1 OR UP== HALT ON ERROR 
Sw 13=1 OR UP== INHISIT ERROR TYPEOUTS 
10=1 OR UP== BELL ON ERROR 


EXECUTION TIMES 


EXECUTION TIME IS DEPENDENT ON THE CONSOLE TERMINAL ®URING THE 
FIRST PASS. ALL OTHER PASSES TAKE LESS THEN 1 SFCOND. 


APT PROCEDURES 


THERE ARE TWO CHOICES WHEN RUNNING UNDER APT. IF THE SIZE BIT 
(BIT 7-SENVM) IS CLEAR THE PROGRAM WILL OPERATE IN NORMAL 
STAND-4LONE MODE. IF THE SIZE BIT IS SET THE PROGRAM WILL 
COMPARE PARAMETERS FROM THE BOARD TO THE CONTENTS OF THE ETABLE. 
gy APT COMPARSION FEATURE THE ETABLE MUST BE SET UP IN 
HIS : 


SENV: DON'T CARE 
SENVM: 200 OR 240 
$SSWREG: DON'T CARE 
SUSWR: NOT USED 
$CPUOP NOT USED 
$SMAMS 1 NOT USED 
$MTYP1 NOT USED 
SMADR1 NOT USED 
SMAMS2 NOT USED 
SMT YP2 NOT USED 
$SMADR2 NOT USED 
S NOT USED 
SMTYP3 NOT USED 
$SMADR3 NOT USED 
$MAMS4 NOT USED 
SMAMS4 NOT USED 
SMTYP4 NOT USED 
SMADR4 NOT USED 
svECTi NOT USED 
Dvir NOT USED 
$BASE PSEUDO POWER-FAIL VECTOR ADDRESS 
$DE VM: NOT USED 
$CDw1: CONTENTS OF ADDRESS IN $BASE 
$CDW2: NOT USED 
$DDWO: DEVICE CODES EXPECTED 
— FIRST LETTER/SECOND LETTER 
WI 


NOTE: THE ORDER FOR LOADING $DDWO IS IMPORTANT. THE FIRST 


SEQ 0004 
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VALUE SHOULD BE FOR THE DIAGNOSTIC / CPU_kOM, FOLLOWED 
BY THE APPROPRIATE OCTAL VALUES FOR THE BOOT ROMS PRESENT. 
SOME OCTAL VALUES USED ARE: 

OCTAL DATA MNEMON ! ¢ PIN LABELING 


020260-° ~ eves 258FT 
04160 BO 233F1 
041460 CO 

042113 DK 756A9 
042114 Dl 75149 
042130 Dx 753A9 
046524 MI 75789 


5.1 NOROMS 


TH'S ROUTINE IS CALLED ONLY IF NO ROMS WERE =OUND DURING SIZING 
IT DOES A READ OF ALL BOOTSTRAP ROM ADDRESSES AND COMPARES THE 
CONTENTS TO A KNOWN EXPECTED VALUE. 


5.2 CHECKS 


THIS ROUTINE SETS UP THE FIRSi, LAST AND EXCEPTION ADDRESSES FOR 
THE ‘**CAL'SUM’’ SUBROUTINE. IT RECIEVES THE CALCULATED CHECKSUM FROM 
"CAL SUM" AND COMPARES IT AGAINST THE GOOD CHECKSUM TO DETERMINE 


5.0 SUBROUTINE ABSTRACTS ' 
CRC ERRORS. 


5.3 CALSUM 


THIS ROUTINE CALCULATES THE (CRC16 CHECKSUM OF FACH 80M, IT 
RECEIVES THE FIRST ADDRESS TO BE CHECKED(FIRSTA), THE LAST 
ADDRESS TO BE CHECKED(|ASTAD) AND THE EXCEPTION ADDRESS (EXCADD) 
FROM THE *‘CHECKS'’ MODULE AND RETURNS 70 IT THE CHECKSUM.IN R4. 


5.4 PROMP 


THIS ROUTINE PROCESSES THE ROM PARAMETERS. IT CHECKS THE SIZE/ 
DON'T SIZE BIT IN THE APT ETABLE AND EITHER FORMATS THE SIZING 
——— OR COMPARES THE SIZING INFORMATION TO THE APT ETABLE 
A 


DEVCOD 










THIS ROUTINE LOCATES EACH DEVICE CODE AND PASSES IT 
ADDRESS IN WHICH IT WAS FOUND BACK TO THE ‘PROMP’’ MODULE. 


AND ThE 
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5.6 


5.8 


a6 


5.10 


6.0 


PPF VAR 


THIS ROUTINE DETERMINES THE PSEUDO POWER=FAIL VECTOR ADDRESS AND 
PASSES IT AND ITS CONTENTS TO THE ‘PROMP*’ MODULE 


PUTMES 


THIS ROUTINE FORMATS THE PARAMETER AND POWER=FAIL ADDRESS 
MESSAGi 5. 


ERRHAN 


THIS ROUTINE FORMATS ALL ERROR MESSAGES AND CALLS THE TYPE 
ROUTINE TO OUTPUT THEM. IT ALSO USES THE OPERATIONAL SWITCHES TO 
DETERMINE WHETHER TO OUTPUT THE MESSAGE, OR HALT. 


F ILBUF 


THIS ROUTINE FILLS THE MESSAGE BUFFER WITH ASCII CHARACTERS. iT 
RECIEVES THE ADDRESS OF THE ASCII IN RS. 


OCASC 


THIS ROUTINE TAKES A SIXTEEN BIT BINARY NUMBER AND CONVERTS IT TO 
6 ASCII CHARACTERS. 


OCADD 


THIS ROUTINE IS USED BY THE *PUTMES’' MODULE WHEN THE DATA IN R3 
IS NOT IN THE RIGHT MODE TO BE_HANDLED BY THE ‘OCASC** MODULE. IT 
MOVES THE ADDRESSING MODE OF R3 UP ONF LEVEL OF DEFERMENT. 


RELIABILITY//AVAILABILITY/SERVICEABILITY 

WHEN RUNNING IN ANY ENVIRONMENT BUT APT THERE IS ONLY ONE ERROR 
DETECTED BY THE PROGRAM. THIS ERROR IS A CHECKSUM ERROR. THE 
MESSAGE WILi BE: 


CRC ERROR IN ROM EXXx 


SEQ 0006 





: H 1 
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THE FOLLOWING ERROR MESSAGES WERE ADDED IN REV BO: 


1. A CONTINUATION ROM IS INCORRECTLY LOCATED IN ROM X(EXX) 
2. A CONTINUATION ROM IS MISSING FOR DEVICE CODE xx 

3. THERE ‘IS A DUPLICATE ROM WiTH DEVICE CODE Xx 

4. ROM SEQUENCE IS INCORRECT AS PER INSTALLATION PROCEDURE. 


SEQUENCE SHOULD BE: 


ROM 1(E35) XX 
ROM 2(E33) Xx 
ROM 3(£ 34) XX 
ROM 4(E32) xX 


WHEN RUNNING IN THE APT ENVIRONMENT THREE OTHER FRRORS MAY OCCUR. 


1 





AN ERROR WILL OCCUR WHEN THE DEVICE CODES IN THE ETABLE DO 
NOT MATCH THE DEVICE CODES FOUND IN THE ROMS. THE ERROR 
MESSAGE WILL BE EITHER: 


1. COULD NOT FIND DEVICE CODE Xx. 
2. FOUND UNEXPECTED DEVICE CODE Xx. 


THE FIRST MESSAGE WILL BE PASSED TO APT IF A_ DEVICE CODE 
LISTED IN THE ETABLE CANNOT BE FOUND IN THE EXISTING ROMS. 
THE SECOND MESSAGE WILL BE SENT IF A DEVICE CODE NOT LiSTED 
IN THE ETABLE IS FOUND IN A ROM. 


THE SECOND ERROR WILL BE IF THE PSEUDO POWER-FAIL VECTOR 
ADDRESS IN’ THE ETABLE DOES NOT MATCH THE ADDRESS DETERMINED 
Bg Mines TO BE IN THE BOARDS' SWITCHES. THE MESSAGE 
WILL : 


POWER-FAIL VECTOR 
EXPECTED RECEIVED 


WHERE EXPECTED IS THE CONTENTS OF THE ETABLE AND RECEIVED IS 
THE VALUE FOUND BY THE PROGRAM, 


THE THIRD ERROR WILL BE IF THE CONTENTS OF BOARD’ 'S. PSEUDO 
POWER-FAIL VECTOR ADDRESS DOES NOT MATCH THE VALUE EXPECTED 
FROM THE ETABLE. THE MESSAGE WILL BE: 
POWER-FAIL DATA ERROR 
EXPECTED RECEIVED 
7.0 NOTE: DIAGNOSTIC COVERAGE , 

THIS DIAGNOSTIC DOESNOT PERFORM ANY EXAMINATION OF 
THE BOOT CIRCUITRY ON THE M9312. IF YOU WISH TO CHECK THIS 
CIRCUITRY YOU MUST FIRST, DETERMINE WHICH DEVICE YOU WILL BOOT 
AND SECOND, YOU MUST SET THE SWITCHES ON THE M9312 





TO THE APPROPRIATE SETTINGS. YOU MAY NOW ATTEMPT TO BOOT 


SEQ 0007 | 


I 
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THE M9312 . IF THE DEVICE DOES BOOT THIS SHOULD BE 


EVIDENT FROM THE CONSOLE TERMINAL, IF PRESENT, 
LIGHT ON THE FRONT PANEL, WHICH SHOULD BE L] 


OR FROM THE RUN 


SEQ 0008 
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408 
409 000000 -ENABLE ABS 
410 “LIST. M 
411 "NLIST Mc .MD, CND 
412 
413 
414 
415" 
419 
423 
424 | 
he -MCALL .SASTAT. . SSAVE, .SCATCH,. SCMTAG, . SETUP, . SEOP, . STYPE 
426 "MCALL STARS,.EQUATE,.SAPTHDR, . $APTBLS, . SAPTYPE 
427 “MCALL .$ACTI1,.HEADER, . SWRHI .REPORT, TPNAM. PUSH, POP, . STRAP 
ho “MCALL .$READ,.$TYPOCT 
429 -MCALL EQUIV 
430 “TITLE CZM9BDO M9312/1144 UBI BOOT 
SACOPYRIGHT (0). 1978 
*DIGITAL EQUIPMENT CORP. 
;#MAYNARD, MASS. 01754 
@ 
! #PROGRAM BY BARRY G. IRRGANG 
SaTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
i SPACKAGE | (MAINDEC- -11-DZQAC-C3), JAN 19, 1977. 
000001 $TN=1 
160000 $SWR=160000 ;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
431 "SBTTL OPERATIONAL SWITCH SETTINGS 
‘* 
is SWITCH USE 
te 15 HALT ON ERROR 
i* 14 LOOP ON TES 
ie 13 INHIBIT. ERROR TYPEOUTS 
432 “SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK= 1100 
104000 ERROR=EMT 
000004 SCOPE=IOT 
;*MISCELLANEQUS DEF INIT IONS 
000011 11 ;;CODE FOR HORIZONTAL TAB 
000012 J Pe 12 7:CODE FOR LINE FEED 
000015 CR= 15 ::CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 :CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS= 177776 S EPROCESSOR STATUS WORD 
177776 PSW=PS 
177776 STKLMT= 177774 :STACK LIMIT REGISTER 
177772 PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 ;;HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 SSHARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
000000 RO= %0 ;GENERAL REGISTER --= 
000001 R1= 1 >:GENERAL REGISTER ee 





CZM9BDO M9312/1144 UBI BOOT 


BASIC DEFINITIONS 


00000 
000003 


kK 1 
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3; GENERAL REGISTER 
; GENERAL REGISTER 


; GENERAL REGISTER 
; GENERAL REGISTER 
3:STACK POINTER 

; ;PROGRAM COUNTER 


v 
x» 
ee 
od 
4 
~< 
r m 
<= 
m 
rc 
NOUS WM HO 


3sPRIORITY LEVEL 


3*' "SWITCH REGISTER’ SWITCH DEFINITIONS 
= 00000 


R2= %2 

R3= 43 

RG= 44 

RS5= 45 

R6= %6 

R7= “7 

SP= %6 

PC= “7 : 

:*PRIORITY LEVEL DEFINITIONS 

PRO= 0 77PRI 

PR1= 4 

PR2= 100 

PR3= 140 

PR4= 200 

PRS= 240 

PR6= 300 

PR7= 340 

Sw15 1 

Sw14= 40000 

Sw13= 20000 

Sw1i2= 10000 

SW11= 4000 

Sw10= 2000 

swo9= 1000 

SwO8= 400 

SwO7= 200 

Sw06= 100 

swOS= 40 

sw04= 20 

swO3= 10 

SwO2= 

SwOl= 2 

SwO0= 
SW9=SWO9 
SW8=SWO08 
SW7=SWO7 
SwW6=SWO6 
SWw5=SWO5 
SW4=SW04 
SwW3=SW03 ; 
SW2=SWO02 * 
Sw1=Sw01 
Sw0=SWwOO 

BIT15= 


;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
0000 


BIT10= 00 
BITO9= 1000 
BITO8= 400 
BIT07= 200 


SEQ 9010 











BASIC DEFINITIONS 


000100 BITO6= 100 
000040 BITO5= 40 
000020 BITO04= 20 
000010 BITO3= 10 
000004 BITO2= 4 
000002 BITO1= 2 
090001 BITOO= 1 


000001 B1T0=B1T00 


; ] 

000004 ERRVEC= 4 

000010 RESVEC= 10 
000014 TBITVEC=14 
000014 TRIVEC= 14 
000014 BPTVEC= 14 
000020 IOTVEC= 20 
000024 PWRVEC= 24 
000030 EMTVEC= 30 


446 ‘ 002000 DUPERR= =2000 


000174 
000174 000000 DISPREG: = UORD 0 
000176 000000 - SWRES: —.WOR 


as 2 
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-=0 
449 -SBiTL TRAP CATCHER 


D 0 
-SBTTL STARTING ADDRESS(ES) 


"*CPU'' TRAP VECTOR ber 
TIME OUT AND OTHER ERRORS 
egy? AND ILLEGAL INSTRUCTIONS 


; TRACE TRAP 


+ : BREAKPOINT TRAP (BPT) 
INPUT /OUTPUT TRAP (I10T) **SCOPE** 
;7POWER FAIL 
; EMULATOR TRAP (EMT) **ERROR** 
>i" 'TRAP’’ TRAP 


000060 TKVEC= 3: TTY KEYBOARD VECTOR 

000064 TPVEC= 7: TTY PRINTER VECTOR 
: 000240 PIRQVEC= S20 7;PROGRAM INTERRUPT REQUEST VECTOR 
433 DDO IIIS IIOIOIIUIOINIOIDIOIIIOIDIDIIIOIOIOIOIDIDITIOIOISIOIOIDIDITIOIDIOIIOIDIOIIOIOIDIOIDI IO 
43%4 s* PROGRAM EQUATES 
435 LDA RARER REAR ERE EERE RARER ER 
436 000001 APTER1 = 1 
437 000002 APTER2 = 2 
438 000004 APTER3 = 4 
439 000010 APTER4 = 10 
440 000020 CRCERR = 20 
441 000040 PFERR = 40 

NOR ; 
0 


.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘',+2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Deeesior” ®. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


33SOFTWARE DISPLAY REGISTER 
7 SOFTWARE SWITCH REGISTER 

















CZM9BDO M9312/1144 UBI BOOT 
STARTING ADDRESS(ES) 


000200 000137 001400 
451 0002 
re 000204 000167 001730 
454 


* 
® 
S888888i 8S 
per Pe Pe Per Ber Pe Pe Pl Ps 
aa anh aad ca cn anh a can ach anid 
SRRNSSRVLS 
—_ 
N 
N 
Ww 
N 
oO 


000024 000200 
00004 


469 


mM 1 
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JP, @ASTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
jmp RSTART 
\SBTTL ACT11 HOOKS 


FF RARER RAAEAEAEEKREREREKERRAERRAEERAKRERAERERARRARRRAKRRREERRR 


HOOKS REQUIRED BY ACT? 


SVPC=. SAVE PC 

SENDAD 3;1)SET LOC.46 TO ADDRESS OF $SENDAD IN .$EOP ; 
“WORD 0 gts} age ee TO ZERO 

-=S$SVPC RESTORE P 

-=1100 


$AUTOB: .BYTE 0 
$INTAG: .BYTE 0 
-WORD C 


SWR : «WORD 
DI ee «WORD DDISP 


ERRCNT : 
.SBTTL APT PARAMETER BLOCK 


J LARA EEEREKEEEEREKERERREKKEREEREEEEEAEREKERERE EERE KE 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DUIS UIGI ISIS IOIIOISIOIOIUIOIOIIOI IOI IOISIOIDIIOIDIOIOIIOIOIDIOIIOIOITIOI IIIS IOI IIIT T ITE 
-$X=.  ;;SAVE CURRENT LOCATION 
-=24 73SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
-=44 -¢POINT TO APT INDIRECT pve, PNTR, 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
.=.$X  ::RESET LOCATION COUNTER 
SIC IOIIIOISISIIOICICISIISIOIDISIOIUIOIOIIOIIOISISIIOIOICIIOIOIOISIOIUIOIDIDIDIIOIOIDIOIOIDIOIDIDIOI IOI 
“SET UP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


$SAPTHD: 

$HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD SMAIL + ADDRESS OF APT Hos eer: (BITS 0-15) 

STSTM: .WORD 2. ; RUN TIM OF LONGEST TEST 

SPASTM: .WORD 2. 7 RUN TIME IN SECS. oF 387 PASS y 1 UNIT (QUICK VERIFY) 


SUNITM: .WORD 0 
. WORD SETEND-SMAIL/2 2 LENGTH MAILBOX~E TABLE (WORDS) 
.SBTTL APT MAILBOX~£ TABLE 


SPARE 


.EVEN 


$MAIL: APT MAILBOX 
SMSGTY: .WORD AMSGTY : MESSAGE TYPE CODE 
$FATAL: .WORD AFATAL ATAL ERROR NUMBER 
$STESTN: .WORD ATESTN i test NUMBER 


SEQ 0012 


DITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


CZM9BDO M9312/1144 UBI BOOT 


APT MA ILBOX-E TABLE 


BEEEEEEEE 
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$DDW15: . 


ADDW15 





SEQ 0013 


3zPASS COUNT 
;;DEVICE COUNT 
7:1/0 JNIT NUMBER 
; MESSAGE ADDRESS 


; ENVIRONMENT MODE BITS 
ZAPT SWITCH REGISTER 
;SUSER SWITCHES 
;CPU TYPE .OPT IONS 
Bits 1S-115CPU TYPE 
1/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
1170-06, PDO=07,0210 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;HIGH ADDRESS.M.S. BYTE 
BLKA#I 


; MEM. E 
MEM.TYPE BYTE == (HIGH BYTE) 


500 NSEC MOS=003 
we ADDRESS ,BLKA#1 
LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘TYPE’ ABOVE 

: HIGH ADDRESS M.S. BYTE 

MEM. TYPE ,BLKA2 
7 MEM.LAST ADDRESS ,BLK#2 
: HIGH ay EF -S.BYTE 

[MEM.LAST ADDRESS ,BLK#3 
: IMIGH ADDRESS ,M.S. BYTE 
; 7MEM. TYPE ,BLK# 

:MEM.LAST ADDRESS ,BLKA4 
ZEINTERRUPT VECTOR#1,BUS PRIORITY#1 
7: INTERRUPT VECTORM2BUS PRIORITY#2 
: ;BASE Pre OF EQUIPMENT UNDER TEST 


VIC 
>: CONTROLLER DESCRIPTION WORDA1 
es BY athe itor a 


7 DEVICE DESCRIPTOR WORD#2 
7 :DEVICE DESCRIPTOR WORD#3 


; DEVICE DESCRIPTOR WORD#6 
; DEVICE Beer ipren WORD#7 


Vv D 
; DEVICE DESCRIPTOR WORD#*0 
7 ;DEVICE DESCRIPTOR WORDA1 | 


= DEVICE DESCRIPTOR WORDA14 
* “DEVICE DESCRIPTOR WORD#15 


C7™9BDO 9312/1144 UB! BOOT 
APT MAIL BOX-E TABLE 


001664 
474 001664 
475 001670 


000007 
001400 
012706 


012737 
012737 


00506: 
016767 


013746 


177420 
006200 


001160 


177777 
002246 
001626 
000042 
177360 
177276 


000001 


8 
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000004 
177432 
177626 
177416 


177376 
177372 


77625 
177342 


000001 
000176 


177254 


TART: 
.SBTTL ne THE COMMON TAGS 
STACK, SP 3-SETUP THE STACK POINTER 
:: INITIALIZE A FEW VECTORS 
AMSTRAP ,@ATRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS 
mov re @ATRAPVEC+2;LEVEL 7 
CLR SPAS 7; CLEAR THE PASS COUNT 
MOV SENDCT -SEOPCT  ;;SETUP END-OF-PROGRAM COUNTER 
a th FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;EQUAL TO A ''=1"", SETUP FOR A gti y ane hae REGISTER. 
MOV @FERRVEC ,~ (SP) CTOR 
#O4$ , AFERRVEC ; SET VECTOR 
#DSWR, SWR ;; SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP DISPLAY : AND A HARDWARE DISPLAY REGISTER 
#-1,aSWR ;TRY TO 7 corte HARDWARE SwWR 
66$ ‘BRANCH IF NO TIMEOUT TRAP OCCURRED 
: s AND THE HARDWARE SWR IS NOT = -1 
65$ Tw IF NO TIMEOUT . 
#65$, (SP) ;SET UP FOR TRAP RETURN 


AMSWREG, SWR :sPOINT TO SOFTWARE SwR 
MDISPREG ,DISPLA* 
(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


SPASS :CLEAR PASS COUNT 
MAPTSIZE . SENVM TEST WSER SIZE grr? fh 
67 YES,USE NON-APT SwWIT 

673 MSSWREG , SWR “NO, USE APT SWITCH REGISTER 


oy A TYPE PROGRAM NAME 
3 TYPE THE NAME OF THE PROGRAM IF FIRST a 
I #-1 s7FIR ST TIME? 
68$ rete IF NO 
79 uaa tls ACT~ Wi? 


Ch YES 
TYPE ,09$ TYPE ASC 12 STRING 
eT VALUE FOR SOF TWARE suiTch REGISTER 
TST Bae ARE WE RUNNING UNDER XXDP/ACT? 
+0 > :BRANCH IF YES 
SENV 41 ;;ARE WE RUNNING UNDER APT? 
70$ [BRANCH IF YES 
raves ff hoy Be bere REG SELECTED? 


ae 
18 :GET SOF T-SWR SETTINGS 
#1,$AUTOB 32:SET AUTO-MODE INDICATOR 


68$ GET OVER THE ASCIZ 
<CRLF >*C 2M9BDO mossy 1he4 UBI BOCT®<CRLF> 


a710,~-(SP) i** SAVE VECTOR ON STACK 
#10$,a410 i** SET ERROR VECTOR 


SEQ 0914 








C 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0015 
476 001676 000007 MEPT se* WHAT CPU IS IT 
477 001700 127700 000001 CMPR #1 ,R0 See 11/4627 
478 001706 001012 BNE 12$ t*#* NO USE M9312 ROM NUMBERS 
479 001706 012737 012330 012326 MOV WMESSS4, on tS ll ;** YES USE UBI ROM NUMBER 
480 001714 012737 006650 006646 MOV #AROM, a#ROMPTR i** UBI ROM NUMBERS 
481 001722 000403 BR 12$ see BR IF TRAP 
482 0017246 012716 001732 10$: MOV #12$, (SP) :SET UP RETURN VECTOR 
483 001730 000002 RTI RE TURN 
484 001732 012637 000010 128: MOV (SP)+,aai0 “RESTORE ERROR VECTOR 
485 001736 012700 007722 MOV #BUF 1. RO :CLR SIZING BUFFERS 
486 001742 005020 g$: CLR (RO)+ 
487 001744 020027 010006 CMP RO, #0C TBUF :HAVE WE CLEARED THE WHOLE 
488 001750 002774 BLT 8$ “BUF FER,NO, Ck 
489 001752 005037 001116 CLR QAROMF IN ‘INITIALIZE ROM FOUND INDICATORS 
490 001756 005057 004040 CLR @4TIMES : INITIALIZE ENTRY COUNTER FOR PUTMES SUB. 
491 001762 006767 007130 JSR PC, CLEAR CLEAR SOME MORE LOCATIONS 
492 001766 013746 000004 MOV QFERRVEC, ~(R6) : SAVE CONTENTS OF LOCATION 4 
493 001772 012737 002034 000004 MOV #23, a#ERRVEC 7+SET UP FOR POSSIBLE TRAP 
494 002000 122737 177777 165000 (MPR t-1. a#i65000 [IF CONTENTS = -1, OR TRAP 
495 002006 001414 BEQ 3$ “THEN CPU ROM NOT PLUGGED IN 
496 002010 012700 165000 MOV #165000, RO [GET FIRST ADDRESS OF ROM SPACE 
497 002014 005720 1$: TST (RO)+ SIF THIS INSTRUCTION TRAPS CPU ROM 
498 ‘NOT PLUGGED IN 
499 002016 020027 166000 CMP RO, #166000 [HAVE WE CHECKED ALL ADDRESSES 
500 002022 001374 BNE 1$ SIF NO THEN CONTINUE LOOPING 
501 002024 012737 000001 001116 MOV #1, @A#ROMF IN SIF NO TRAPS OR LOW BYTE OF FIRST 
502 “ADDRESS NOT EQUAI. -1 ASSUME ROM PRESENT 
©03 002032 000402 BR 3$ “NO TRAP JUST RESTORE ERRUEL 
504 002034 062706 000004 2$: ADD a, R6 [+IF TRAP CLEAN OFF PC, PSW 
505 002040 012637 000004 3$: MOV (R6)+, a#ERRVEC SRESTORE ERRVEC 
506 002044 012700 000002 MOV #2, RO S INITIALIZE ROM FOUND INDICATOR 
507 002050 013737 001114 003374 MOV avF IRSTR, @ATESTAD [GET FIRST BOOT 
508 002056 132777 000200 001310 S$: BITR = #200, aTESTAD ‘IF LOW BYTE HAS BIT 7 SET 
509 002064 001411 BEO 7$ *DO NOT SET ROM FOUND INDICATOR 
510 002066 022777 177776 001300 CMP #-2, aTeESTAD SUNLESS, CONTENTS OF ADDRESS 
511 002074 001011 BNE 4$ SEQUAL TO -2. (CONTINUATION ROM 
512 002076 050067 010210 BIS RO, CONF IN >+SET CONTINUATION ROM FOUND INDICATOR 
513 002102 050067 177010 BIS RO, ROMF IN :+SET ROM FOUND INDICATOR 
514 002106 04 BR 4$ : +CONT INUE 
$15 002110 050037 001116 7$: BIS RO, @AROMF IN >SET ROM FOUND INDICATOR 
516 002114 050067 010174 BIS RO. DEVFIN :+SET DEVICE ROM FOUND INDICATOR 
$17 002120 062737 000200 003374 4%: ADD #200, @aTESTAD [UPDATE TEST ADDRESS TO NEXT ROM 
518 002126 006100 ROL RO [UPDATE ROM FOUND INDICATOR 
519 002130 022737 1746000 003374 CMP #174000, aaTESTAD SHAVE CHECKED ALL THE ROMS 
520 002136 001347 ONE S$ [IF NO CONTINUE CHECKING 
$21 002140 005737 001116 RSTART: TST @FROMF IN TARE THERE ANY ROMS AVAILABLE 
522 002144 001003 BNE 6$ [IF YES GO TO ROM TEST 
$23 002146 004767 000126 JSR PC, NOROMS > IF NO GO TEST NO ROMS 
524 002152 000411 BR SEOP :GO TO END OF PASS 
525 002154 004767 000206 6$: JSR PC CHECKS =GO CALCULATE CHECKSUMS 
526 002160 005737 001144 TST ar$PAass SARE WE ON 1ST PASS 
527 002164 001004 BNE $EOP :1F NO SKIP PROCESS OF PARAMETERS 
528 002166 004767 000510 JSR PC, PROMP *GO PROCESS ROM PARAMETERS 
529 002172 004767 007220 JSR PC. SEQTST 7GO CHECK SEQUENCE OF DEVICE CODES 


530 -SBTTL END OF PASS ROUTINE 


CF AMAHAAAAAAKAHAAARAKRERAEAHAAHARASARARKAKRAKAAAHeAAHReKeKeReAeanene 











D 
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CZ7M9BDO 9312/1144 UB! BOOT 
END OF PASS ROUTINE 


MACRO M1111 
SEQ 0016 


sho be ay Fa ae NUMRER ($PASS) 
2eTyY 

;*I1F THERES A MONITOR GO TO a 

;*I1F THERE ISN'T JUMP TO RSTAR 


=*IF IT IS DESIRED TO HAVE A BELL INDICATE THE ‘END OF PASS'' LOCATION 
:*$ENDMG CAN BE CHANGED TC 7. 
002176 $EOP: 
002176 000240 NOP 
002200 005267 176740 INC $PASS :: INCREMENT THE PASS NUMBER 
2 042767 100000 176732 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
002212 005327 DEC (PC) + + LOOP? 
002214 SEOPCT: .WORD 17 
002216 003017 BGT SDOAGN rrYES 
22 012737 MOV (PC )+,a<PC)+ Z RESTORE COUNTER 
002222 SENDCT: .WwORD 1 
002224 002214 SEOPCT 
002226 104401 002265 TYPE , SENDMG :: TYPE ‘END PASS'' 
002232 104401 002262 TYPE SENULL 77 TYPE A NULL CHARACTER 
2236 013700 000042 $GET42: MOV a#42,R0 >:GET MONITOR ADDRESS 
002242 001405 BEQ $DOAGN > BRANCH IF NO MONITOR 
002244 ; RESET ::CLEAR THE WORLD 
062246 004710 $ENDAD: JSR PC, (RO) 3;GO TO MONITOR 
002250 000240 NOP i: SAVE ROOM 
002252 000240 NOP FOR 
002254 000240 NOP SZACT11 
002256 $DOAGN: 
002256 000137 JMP a(Pc)+ +: RETURN 
002260 002140 SRTNAD: .WORD jo je 
002262 377 377 000 S$ENULL: .BYTE 0 NULL CHARACTER STRING 
002265 015 012 105 $ENDMG: .ASCIZ <t>cl onsen pass? 
002270 116 104 040 
002273 120 101 123 
002276 123 000 
531 
$32 
533 
534 :NO ROMS TEST 
535 :THIS ROUTINE IS CALLED ONLY IF NO ROMS WERE FOUND 
536 ‘DURING SIZING. IT DOES A READ OF ALL BOOTSTRAP ROM 
537 TADDRESSES AND COMPARES THE CONTENTS TO A KNOWN 
rf ;EXPECTED VALUE. 
540 002300 104401 006700 NOROMS : on? MNORM ;~ TYPE MESSAGE THAT NOROMS FOUND 
541 002304 012703 172000 v #172000, R3 + GET FIRST ADDRESS TO BE READ 
542 002310 013704 002364 1$: mov QYNODATA, Ri =GET ADDRESS OF EXPECTED VALUE 
543 002314 121304 CMPB (R3), R4 :+DOES RECIEVED VALUE EQUAL EXPECTED 
544 002316 001406 BEO 2 SIF YES CONTINUE TESTING 
545 002320 011304 MOV (R3), RG :+GET BAD VALUE 
546 002322 052737 000100 001110 BIS #NOROME a4ROMERR ‘IF NO SET ERROR INDICATER 
547 002330 767 001506 JSR PC, ERRHAN :REPORT ERROR 
548 002334 062703 000002 2$: ADD We R3 °+GET TO NEXT EVEN ADDRESS 
9 002340 022703 173024 CMP #173024, R3 >+AT A VECTOR ADDRESS? 
550 002344 1773 BEQ + +BRANCH IF YES 
551 002 022703 173224 CMP #173224, R3 *+AT A VECTOR ADDRESS? 
552 002352 001770 BEQ S+BRANCH IF YES 
$53 002354 022703 174000 CMP #174000, R3 SHAVE ALL ADDRESSES BEEN TESTED 





554 002360 
555 002362 


557 002364 


6097 002604 
608 002606 
609 002612 
670 002614 


003353 
000207 


000777 


012737 
033737 


010246 
013700 
005004 
012005 


CZM9BDO ™9312/1144 UB! BOOT 
END OF PASS ROUTINE 


000001 
002602 
165775 
000000 
165000 
000152 
165776 


002674 


E 
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002602 
001116 


992674 


001110 


001110 
002674 





SEQ 0017 
BGT 1$ ;IF NO GO TEST THIS ADDRESS 
RTS PC 
NODATA: .WORD 777 3*A HOLE LOOKS LIKE XXX777 


; CHECKSUM ROMS MODULE 
3 THIS ROUTINE DOES A CHECKSUM OF ALL ROMS PRESENT 


CALCULATE CHECKSUMS MODULE 
THIS ROUTINE CALCULATES THE CRC16 CHECKSUM OF THE CONTENTS 
- Ae ia oo haem EXCEPT THE EXCEPTION ADDRESS AND LAST ADDRESS 


CHECKS: MOV #1, @ZROMCNT ; INITIALIZE RON COUNTER 
BIT @ZROMCNT, @AROMF IN 31S DIAGNOSTIC ROM PRESENT 
BEQ 1$ ; IF NO GO CHECKSUM BOOT ROMS 
MOV #165775, @ALASTAD ;SET UP LAST ADDRESS TO BE SUMMED 
MOV #0, @AEXCADD SET UP EXCEPTION ADDRESS 
MOV - #165000, @4FIRSTA ;SET UP FIRST ADDRESS TO BE SUMMED 
JSR at CAL SUM ;GO CALCULATE CHECKSUM 
MOV a#165776, R3 GET EXPECTED CHECKSUM 
CMP R3, RG ; COMPARE CHECKSUMS 
BEQ 1$ 7 IF CHECKSUMS COMPARE CONTINUE 
BIS ACRCERR, @4ROMERR ; IF ERROR SET INDICATER 
JSR PC, ERRHAN ;REPORT ERROR 
1$: MOV #173000, @AFIRSTA ;SET UP FIRST ADDRESS TO BE SUMMED 
MOV #173024, @4E XCADD ;SET UP EXCEPTION ADDRESS 
MOV #173175, @ALASTAD :SET UP LAST ADDRESS TO BE SUMMED 
MOV #173176, R2 ;GET ADDRESS OF GOOD DATA 
2s: ROL @A4ROMCNT ;UPDATE ROM COUNTER 
BIT @AROMCNT, @AROMF IN 71S ROM PRESENT 
BEQ 3$ :1F NO, GO UPDATE TO NEXT ROM 
JSR a CAL SUM zIF YES GO CALCULATE CHECKSUM 
MOV (Re), R3 :GET EXPECTED CHECKSUM 
CMP R3, RS ; COMPARE CHECKSUMS 
BEQ 3$ 7 IF CHECKSUMS EQUAL CONTINUE 
BIS ACRCERR, @4ROMERR 7 IF ERROR SET INDICATER 
JSR PC, ERRHAN *REPORT ERROR 
3$: ADD #200, QAFIRSTA ; UPDATE FIRST ADDRESS 
ADD #200, @AEXCADD ; UPDATE EXCEPTION ADDRESS 
ADD #200, @A4LASTAD ‘UPDATE LAST ADDRESS 
ADD #200, R2 ;UPDATE ADDRESS OF GOOD DATA 
CMP #174000, QA4FIRSTA ;HAVE ALL ROMS BEEN CHECKED 
BNE 2$ 7 1F NO GO CHECKSUM NEXT ONE 
RTS PC IF YES RETURN 
ROMCNT: 0 


CALSUM: MOV R2, -(SP) ;SAVE R2 
MOV asf IRSTA, RO GET STARTING ADDRESS 
CLR RS SINITIALIZE CRC WORD 
LOOP: MOV (RO)+, R5 :GET A BYTE 





CZ7M9BDO M9312/1144 UB! BOOT 
END OF PASS ROUTINE 


105737 





000020 


002676 


002700 


001157 


000250 
000570 


000452 
000040 





MACRO M1111 


. ™O 
CRCLOP: 
R 


2$: 


FIRSTA: 
EXCADD: 
LASTAD: 


;PROCESS ROM PARAMETERS MODULE 

:THIS ROUTINE DETERMINES IF SIZING IS TO BE DONE. 
;MODULE WILL GET THE PARAMETERS FROM THE DEVCOD AND PPFVAR 
sMODULES AND ASSEMBLE MESSAGES TO BE OUTPUT. 
[NOT TO BE DONE THIS MODULE WILL TAKE THE PARAMETERS RECEIVED 
;AND COMPARE THEM TO THE VALUES SUPPLIED IN THE ETABLE. 


PROMP : IF BIT ve CLEAR SIZE 


10$: 


1$z 
2s: 
3$: 


F 
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R2 


. 


aE XCADD 


@4L ASTAD 


R2 


DEVCOD 
PUTME S 


PPF VAR 


@4ROME RR 


ERRHAN 
PUTME S 


DEVCOD 
3 





;SET BYTE COUNT 
THE NEXT NINE LINES 
;DO0 THE MATH CALCULATIONS 


31S NEXT ADDRESS AN EXCEPTION ADDRESS 
3 IF NO TEST IT 


IF SIZING IS 


IF WE HAVEN'T CHECK NEXT ETABLE ENTRY 






SEQ 9018 















IF YES SKIP ADDRESS 

HAVE ALL LOCATIONS BEEN SUMMED 
;1F NO CONTINUE 

= RESTORE R2 

IF YES RETURN 



















IF IT IS THE . 







BIT IS SET DON'T SIZE. 
coe DEVICE CODE MODULE 
FORMAT PARAMETER MESSAGE 


;GO GET PSEUDO POWER-FAIL VECTOR ADDRESS 
[WAS THERE AN ERR 

7: 1F NO GO FORMAT MESSAGE 

:1F YES GO REPORT MESSAGE 


;FORMAT PSEUDO POWER-FAIL VECTOR 
ADDRESS MESSAGE 


SET MESSAGE INDICATOR 

:GO TO EXIT 

:CALL_GET DEVICE CODE MODULE 

:GET BOARD DEVICE CODES 

GET Aly DEVICE CODE PARAMETERS 


SIF YES GET NEXT BOARD DEVICE CODE 
7;1F NO HAVE WE CHECKED THE WHOLE ETABLE 






IF WE HAVE THEN DEVICE CODE ON BOARD 
:DOES NOT EXIST IN ETABLE 






692 003140 


699 . 
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END OF PASS ROUTINE 


000002 


00122c 
007720 
000004 


MACRO M1111 





001110 


001110 


001110 


S$: 
6$: 


8$: 


9S: 


:+CONTINUATION ROM DATA IS STORED IN ‘BUF1'' AS FOLLOWS: 
2 ¢ 


+ 
+ 
+ 
ag 
. 
oe 
. 
+ 
+ 


4$: 


G 
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;GET DEVICE CODES MODULE 
THIS SUBROUTINE wine’: EACH DEVICE CODE AND PASSES IT AND THE 
SADDRESS IN WHICH IT WA FOUND 


ADDRESS OF FIRST DEVICE CODE 
DEVICE COD 
ADDRESS OF SECOND DEVICE CODE 


DEVICE CODE 


ADDRESS OF NTH DEVICE CODE 


DEVICE CODE 


CONTINUATION CHIP IDENTIFIER (ALWAYS A +1) 
(PREVIOUS ROM'S DEVICE CODE,OR -1 IF ILLEGAL ROM) 


DEVICE CODE 


@4ROME RR 
ERRHAN 


SIF DIAGNOSTIC ROM PRESENT IT WILL BE THE FIRST DEVICE CODE. 
' } 













SEQ 0019 











;UPDATE TO NEXT ADDRESS 
;1F CONTENTS EQUALS ZERO WE'RE DONE 










[DO THE TWO DEVICE CODES COMPARE 

;1F YES GET NEXT ETABLE DEVICE CODE 
;1F NO HAVE WE CHECKED ALL THE BOARD 
;DEVICE CODES, IF NO CONTINUE 

:1F YES ETABLE DEVICE CODE NOT 

NOT ON BOARD 













;1F CONTENTS EQUAL ZERO-DONE 
IF CONTENTS NO EQUAL ZERO-CONT INUE 

[GO GET PSEUDO POWER-FAIL VECTOR ADDRESS 
;GET ETABLE PPFVA 

[GET BOARD PPFVA 

;DO THE TWO PARAMETERS COMPARE 

:1F YES CONTINUE 

;SET APT ERROR INDICATOR 

:GO TO ERROR ROUTINE 

:GET ETABLE DATA 

;GET BOARD DATA 

:DO THE TWO PARAMETER COMPARE 

IF YES THEN DONE 

;SET APT ERROR INDICATOR 















90 TO ERROR ROUTINE 


BACK TO THE CALLING ROUTINE. 
DATA IS STORED IN BUFFER “BUF 1'' IN THIS FORMAT: 


BUF 1: 








CZ7M9BDO M9312/1144 UB! BOOT 
END OF PASS ROUTINE 


i} 


eT 003372 


64 
765 003374 
766 003376 


781 003416 


Ocal ee 


007722 
000001 
001116 


165774 
003374 
000154 


003376 
003374 
000076 


170177 


000200 
005606 


003376 
003374 


173000 
003440 
005604 


H 
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003374 


003374 


003374 


003374 


003374 


174000 


173024 
006670 





SEQ 0020 
s THERE $S ROOM FOR ¥ TO 12 DEVICE CODES IN TEMP 
DEVGOD: MOV BUF 1, RO 
MOV #1, Ri ; INITIALIZE ROM POINTER 
BIT R1, @AROMF IN 31S DIAGNOSTIC ROM PRESENT 
BEQ 1$° ; IF NO GO TEST BOOT ROMS 
MOV #165774, @ATESTAD ;GET ADDRESS OF DIAG. ROM DEVICE CODE. 
MOV @ATESTAD, (RO) + ;STORE ADDRESS OF DEVICE CODE 
MOV @TESTAD, (RO) + sSTORE DEVICE CODE 
CLR @ADAF LAG CLR DATA TYPE FLAG 
1$: MOV @4FIRSTB, @F4TESTAD ;GET ADDRESS OF FIRST BOOT ROM 
ROL R1 6 ;UPDATE POINTER TO NEXT ROM 
3$: BIT R1, DEVF IN 7+IS DEVICE ROM PRESENT 
BNE 46$ ;1F YES GO GET PARAMETERS 
JSR PC, CON1 :+CHECK FOR CONTINUATION CHIP 
ADD #200, @4TESTAD SIF NO UPDATE TEST ADDRESS 
ROL R1 ; UPDATE POINTER TO NEXT ROM 
BR 9$ :GO SEE IF ALL ROM CHECKED 
4$: TST @ADAF LAG :1F DATAFLAG=0 THEN DATA IS DEVICE CODE 
BNE 5$ : IF DATAFLAG=1 THE DATA IS OFFSET TO NEXT 
MOV @ATESTAD, (RO) + ;STORE ADDRESS OF DEVICE CODE 
MOV @TESTAD, (RO) + ;STORE DEVICE CODE 
ADD He, @ATESTAD ‘UPDATE TEST ADDRESS 
BR 8$ ;GET OVER SOME CODE 
5$: MOV @ATESTAD, R2 ;SAVE OLD TEST ADDRESS 
ADD @TESTAD, @ATESTAD S UPDATE TO NEW TEST ADDRESS 
MOV @ATESTAD, R3 ;GET THE NEW ADDRESS 
BIC #170177, R2 ;+SAVE ONLY BITS 7,8,9,10,11 
BIC #170177, R3 :+IN R3 ALSO 
SUB Re, R3 Pe eas oe BETWEEN ADD 
6$: TST R3 SR3E TO 0 
BEQ 8$ ‘Te VES" arts DONE 
SUB” #200, R3 7 IF NO THEN MOVE POINTER 
ROL R1 : ONE BIT FOR EVERY 200 - 
- 4% CON2 3+CHECK FOR CONTINUATION CHIP 
8$: COM OADAF LAG ; CHANGE DATA FLAG TO RIGHT DATA TYPE 
o$: CMP @ATESTAD, #174000 ;HAVE WE CHECKED ALL THE ROM 
BLT 3$ 7 IF NO CONTINUE 
RTS PC sIF YES RETURN 
2 
TESTAD: 0 
DAFLAG: 0 
7GET PSEUDO POWER-FAIL VECTOR ADDRESS ROUTINE 
; THIS SUBROUTINE TESTS LOCATIONS 173024 AND 173224 TO ee 
“WHICH VECTOR WILL BE USED IF POWER-FAIL OPTION ENABLED ON THE 
‘BOARD. THE OPTION MUST BE ENABLED AND AT LEAST ONE ADDRESS 
SWITCH MUST BE ‘‘ON’’ OR AN ERROR WILL BE DETECTED. 
: THE DATA WILL BE RETURNED IN ‘BUF2’* IN THE FORMAT. 
~ BUF 2: PSEUDO POWER-FAIL VECTOR ADDRESS 
; CONTENTS OF VECTOR ADDRESS 
PPFVAR: CMP #173000, 34173024 i> TEST IF LOCATION 173024 SELECTED 
BEQ 1$ 3; 1F NOT THEN GO TEST LOCATION 173224 


MOV #1$, RE TURN 3+SET UP AN ALTERNATE RETURN 
JSR PC, HOL CK1 3*+CHECK FOR A HOLE 


I 
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END OF PASS ROUTINE SEQ 0021 


003422 012737 173024 010002 #173024, @ABUF 2 ;IF IT IS THEN STORE ADDRESS 
173024 010004 ee ene OABUF 2+2 : STORE ht OF LOCATION 173024 
173224 : #173000, a4173224 =TEST IF LOCATION 173224 SELECTED 
2$ ;1F NOT THEN SET ERROR INDICATOR 
006630 ;+SET UP AN ALTERNATE RETURN 
;+CHECK FOR A HOLE 
010902 @ABUF 2 ;IF IT IS THEN STORE ADDRESS 
173224 010004 @ABUF o+2 ;STORE CONTENTS OF VECTOR 
3$ ;GET OVER ERROR 
000040 001110 ' @A4ROME RR ;SET ERROR INDICATOR 


;PUT MESSAGE IN BUFFER ROUTINE 
3THIS SUBROUTINE FORMATS THE PARAMETER AND POWER-FAIL MESSAGES. 


000000 PUTMES: MOV a(R6), R4 ;GET MESSAGE BUFFER ADDRESS 
004040 TST @ATIMES :1S THIS FIRST TIME THROUGH 
3$ ;IF NOT FIRST TIME THEN FORMAT POWFR- 
FAIL MESSAGE 
004040 a4TIMES ; TOGGLE WATCHDOG 
007722 ABUF 1 R , GET DATA BUFFER ADDRESS 
165774 . :1S DIAGNOSTIC ROM PRESENT 
1$ ;1F NOT DON'T FORMAT DIAG. ROM MESSAGE 
006754 R SIF IT IS GET DIAG. ROM MESSAGE HEADER 
000714 PC :GO PUT HEADER IN MESSAGE BUFFER 


000002 P SKIP OVER ray OF ASCII 
FORMAT ASCII FOR MESSAGE 
[PUT ASCII IN MESSAGE BUFFER 


;GO PUT BOOT ROM HEADER IN MESS. BUF. 


3+POINT TO DIAGNOSTIC ROM 
;+POINT TO MSG TABLE 
:+SET UP AN ALTERNATE RETUR 

FINISH ;+SET UP ANOTHER ALTERNATE RETURN 
[PUT A CR/LF HERE 


ROMT YP ;+F IND THE ROM TYPE 
;GET FIRST ENTRY POINT 
:GO CONVERT OCTAL TO ASCII 
;GO PUT ENTRY POINT IN MESSAGE BUF 


GET SECOND ENTRY POINT 
:GO CONVERT OCTAL TO ASCi1 
F ILBUF ;GO PUT ENTRY POINT IN MESSAGE BUF. 


0000’ (R4)+ 
838 003712 (R4)+ 





839 003716 


886 
887 004100 


RRRERERE 
RBRRVESR 


CZM9BD0 M9312/1144 UBI 
END OF PASS ROUTINE 


BOOT 


MACRO M1111 


000002 


175022 


175006 


000264 


3$: 


4$: 


5$: 


6$: 


TIMES: 


J ¢@ 
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ERROR HANDLER ROUTINE 


: THIS SUBROUTINE FORMATS THE ERROR MESSAGES THE 
ERRHAN: SAVREG 
MOV 


1$: 


OVER1: 


2$: 


SEQ 0022 


PUT TAB IN HERE 
R3 ;UPDATE DATA BUFFER ADDRESS 
;FORMAT ASCII FOR MESSAGE 


os MOV ASCII TO MES1 
+ 
;GO BACK TO START OF LOOP 
R3 ;GET DATA BUFFER ADDRESS 
R5 ;GET POWER-FAIL HEADER ADDRESS 
F ILBUF :GO PUT POWER-FAIL HEADER IN MESSAGE BUF. 
R3 ;ARE WE DONE 
IF YES THEN GO RETURN 
OCADD [GO CONVERT OCTAL TO ASCII 
F ILBUF 
R3 UPDATE DATA BUFFER ADDRESS 
:GO BACK TO START OF LOOP 
aay :PUT A CR/LF AT END OF MESSAGE 
+ 
;PUT ZERO TERMINATOR AT END OF MESSAGE 
6$ P ;GET MESSAGE BUFFER ADDRESS 
(R6) :GET OVER MESSAGE BUFFER ADDRESS 


TYPES THEM 
R4 
; INCREMENT ERROR COUNTER 
aSwR ;BELL ON ERROR 
;BRANCH IF NO 
@aSWR ; INHIBIT ERROR TYPEOUT 


; NO GO THROUGH 


RO :GET ERROR CODE 

OVERY SAVE ERROR CODE FOR APT 

R1 :GET ERROR HEADER TABLE 

;C-BIT USED TO STOP STEPPING THROUGH TABLE 
[ROTATE ERROR CODES 

:1F C-BIT SET STOP STEPPING 

R1 lf mY CLEAR STEP TO NEXT HEADER 


952 004422 


011105 
004767 


001005 
032737 
091401 
000405 
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END OF PASS ROUTINE 


000002 


000000 
174612 
000034 
000001 
060040 


000614 


000610 
100000 


MACRO M1117 
3$: MOV (R1), 
JSR Pos 
CR 
174734 BIT #PFERR, 
BNE $ 
174724 BIT #3600, 
BEQ 4$ 
000010 MOV ARG2, 
MOV ARG, 
JSR PC, 
13$: WORD 0 
BR 8$ 
001110 14$: BIT #23, 
BEQ 7$ 
001110 * BIT #20, 
* BEQ 6$ 
MOV @4ROMCNT 
MOV @AROMPTR 
CLC 
4$: ROR RO 
BCS 5$ 
ADD #2, 
BR 4$ 
5$: MOVB (R1)+, 
MOCVB (R1)+, 
BR $ 
6$: MOVB (R3)+ 
MOVB (R3)+, 
BR 8$ 
7$: MOV 6(R6), 
JSR a 
JSR PC. 
HT 
MOV 10(R6) 
JSR PC, 
JSR PC, 
HT 
8$: MOVB #CR, 
MOVB Ar, 
MOVB #0, 
TST SENV 
BNE OVER2 
JMP OVER11 
001116 OVER2: CMP #1, 
BNE 
001110 BIT #PFERR 
BEQ AR 
BR OVER11 
AROUND: JSR * 
ERRMSG 
OVER9:  .WORD 
HALT 
OVER11: JSR PC, 
ERRMSG 
174462 OVERI0: BIT #B1T15, 
BEQ 12$ 


K 2 
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R5 
F ILBUF 


ROMERR 
ROMERR 
13$ 
R5 
F ILBUF 


@4ROMERR 

@4ROMERR 
. RO 

R1 


R1 


(R4)+ 
(R4)+ 


(R4)+ 
(R4)+ 


R3 

OCASC 
F ILBUF 
R3 

OCASC 
F ILBUF 
(R4)+ 


(R4)+ 
(R4)+ 


@4ROMF IN 
AROUND 
, @#ROMERR 


$ATY1 


$ATY3 
aSWR 





SEQ 0023 


;PUT HEADER ADDRESS IN REGISTER. 
;GO PUT HEADER IN ERROR MESSAGE BUF. 


:+1S IT A “4* phe 


; *BRANCH S 

:+1S IT ‘ + ail ERROR? 

: +BRANCH 

3 +PUT rR. OR NRHT AT 13$ 
:+ARG1 CONTAINS ADR. OF MSG 
:+PUT DATA INTO BUFFER 
sSCRTAONS CR OR HT 


i415 ERROR A CRC, APTER1 OR APTER2 
:1F NO GO FORMAT APTER3, APTER4 
:1S ERROR CRC 

31F NO FORMAT APTER1, APTER2 
:GET eons COUNTER 


:G OM NUMBER TABLE 
;C-BIT USED TO STOP STEPPING THROUGH TABLE 
:ROTATE ROM NUMBER 

:1F C-BIT SET STOP STEPPING 

:IF C-BI1T es STEP TO NEXT HEADER 

: CON ay TEPPING 

ROM NUMBER IN ERROR MESSAGE BUF 


:GO_TO END OF ROUTINE 
:PUT BAD DEVICE CODE IN ERROR MESS. BUF. 


:GO_TO END OF ROUTINE 

;GET SAVED EXPECTED VALUE 

:GO COVERT OCTAL TO ASCII 

:GO PUT DATA IN ERROR MESSAGE BUF. 


GET SAVED RECEIVED bray 
:GO COVERT OCTAL TO ASCII 
:GO PUT DATA IN ERROR MESSAGE BUFFER. 


PUT CR/LF AT END OF MESSAGE 


PUT TERMINATOR AT END OF MESSAGE 
:TST IF ON APT 

IF YES et 

:IF NO BRANCH 


; ay NO BRANCH 
~ NOW IF YES ,1S POWER- 
> FAIL VECTOR THE ee 
i> YES ,WELL THEN IT'S 
37 NOT A REAL ERROR , CONTINUE 
;GO REPORT ERROR 


7 THEN HALT 
;1F NOT ON APT JUST REPORT ERROR 


71S HALT ON ERROR SET 
;1F NO SKIP OVER HALT 





L 
CZM9BD0 M9312/1144 UBI BOOT MACRO M1111 24=SEP=79 16:37 PAGE 61-15 


END OF PASS ROUTINE | SEQ 0024 
953 004424 000000 HALT 
954 004426 005037 001110 12$: CLR QAROMERR ;CLEAR ERROR FLAGS 
955 004432 104412 RESREG 
956 004434 000207 RTS PC 
957 
958 
959 004436 007257 EHEADT: ERIMSG 
960 004440 007223 EROMSG 
961 004442 007315 ER3MSG 
962 004444 007372 ER4MSG 
963 004446 007447 ‘ CRCMSG 
964 004450 007473 PFMSG 
965 004452 007551 
454 007627 SEQMSG i+ 
967 004456 012376 | 7 i+ 
968 004460 012455 ERMES2 i+ 
969 004462 012535 ERMES3 + 
970 
971 
972 
973 sFILL BUFFER ROUTINE 
974 [THIS SUBROUTINE FILLS THE MESSAGE BUFFER WILL ASCII 
923 = CHARACTERS. 
977 004464 022776 000011 000000 FILBUF: CMP HHT, @(R6) ;IS FIRST CHARACTER A TAB OR CR 
978 004472 001903 BNE 1$ SIF CR THEN GO PUT CR/LF IN BUFFER 
979 004474 112724 000011 MOVB ~—s#HT, (RG) +" IF TAB THEN PUT TAB IN BUFFER 
980 004500 000404 BR 2$ GET OVER NEXT LINE 
981 004502 112724 000015 1$: MOVB -#CR, (R4)+ :MOV CR/LF TO BUFFER 
982 004506 112724 000012 MOVBsoALF .. (R4)+ 
983 004512 112524 28: MOVB = (RSJ+, (RG) + :PUT A CHARACTER IN MESSAGE BUFFER 
984 004514 105715 TSTB. —(R5) [1S NEXT CHARACTER ZERO 
985 004516 001375 BNE 2$ {TP NOT PUT IT IN MESSAGE BUFFER AND GET NEX 
986 004520 062716 000002 ADD #2, (R6) [UPDATE RETURN POINTER TO GET OVER CHARACTER 
987 004524 000207 RTS PC THEN RETURN 
989 : 
990 
991 
992 ;OCTAL TO ASCII CONVERSION ROUT INE 
993 :THIS SUBROUTINE TAKES A SIXTEEN BIT OCTAL NUMBER AND 
ZCONVERTS IT TO 6 ASCII CHARACTERS 
996 004526 012700 010006 OCASC: MOV #OCTBUF , RO :GET BUFFER ADDRESS 
997 004532 005020 CLR (RO) + ZCLEAR BUFFER 
998 004534 005020 CLR (RO)+ 
999 004536 005020 CLR (RO) + 
1000 004540 005020 CLR (RO) + . 
1001 004542 012700 010006 MOV #OCTBUF RO :GET BUFFER ADDRESS 
1002 004546 010337 004630 MOV R3, aa TEMP :GET OCTAL NUMBER 
1003 004552 000241 CLC =CLEAR CARRY 
1004 004554 006137 004630 ROL aw TEMP ROTATE BIT INTO CARRY BIT 
1005 004560 006110 ROL (RO) [ROTATE CARRY BIT INTO BUFFER 
1006 004562 152710 000060 1$: BISB #60, (RO) :MAKE IT ASCII 
1007 004566 005200 INC RO [UPDATE BUFFER ADDRESS 
1008 004570 020027 010014 CMP RO, #OC TBUF +6 SHAVE WE CONVERTED ALL THE NUMBER 
1009 004574 001003 BNE 2$ IF NO CONTINUE 


4 
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END OF PASS ROUTINE ys SEQ 0025 


012705 010006 MOV #OCTBUF , RS iE VES PUT BUFFER ADDRESS IN REGISTER 
004630 : SROTATE BIT INTO CARRY BIT 
SROTATE CARRY BIT INTO BUFFER 
004630 pt 
004630 : 
*GO TO START OF LOOP 


33 
RoRRe 


Wor fd ad od 
SOanNOo 


seeeeeeeee 
REE 


AO 


TEMP: 


cd ceed al eo ed cel ec ce lh eed 
OOoCooCco000o 


3 


3 THIS ROUTINE IS CALLED BY THE PUT MESSAGE ROUTINE y GET THE RIGHT 
[VALUE IN R3 SO THE OCTAL TO ASCII ROUTINE GETS THE RIGHT NUMBER. 


OCADD: -(R6) SAVE THE VALUE OF R3 
MO R3 PUT THE DATA TO BE CONVERTED IN R3 
177664 PC, OCASC :GO CONVERT OCTAL TO ASCII 
R3 RESTORE R3 
RETURN 


-SBTTL TYPE ROUTINE 


IRA IIOIUIOIUIUIDIOIIOIUIOIIUIUIIOIIIOI IIR III EE ttt t it tik 
“ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 it 

2 * THE ROUTINE WILL INSERT A NUMBER OF NULL “HARACTERS AFTER A LINE FEED. 

; *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
> *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


RCAL ALL: 
:*1) USING A TRAP INSTRUCTION 
TYPE .MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 


105767 : $TPFLG 3:1S THERE A TERMINAL? 
10000 BP 1$ 72BR IF YES 
;sHALT HERE IF NO TERMINAL 

3$ 2 LEAVE 

; RO,-(SP) :SAVE RO 
000002 a2(SP) ,RO 7:GET ADDRESS OF ASCIZ STRING 
000001 174262 MAPTENV, SENV 3 =RUNNING IN APT 
BN 62$ ::NO,GO CHECK FOR ¥*! , waa 

000100 174253 M#APTSPOOL . SENVM iy = A at. 

62$ NO,GO CHECK OR CONSOLE 
000004 RO,61$ ; 3 SETUP Me SSAGE ADDRESS FOR APT 
000304 PC, SATY3 SSAGE TO APT 


61$: -WORD 0 : RESS 
000040 174231 ; #APTCSUP, SENVM STAPT CONSOLE SUPPRESSED 





ace B i“ UBI BOOT 


TYPE ROU 


000406 

122766 
402 ° 

105227 





MACRO M1111 


2s: 
60$: 
3$: 

4$: 


5$: 
6$: 


7$: 


;HORIZONTAL TAB 


8$: 
9$: 
000122 


STYPEC: 


000106 


3$: 


000002 2$: 


000002 1$: 


N 
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MOVB 
JSR 


60$ 

(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 

ACRLF, (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,S$TYPEC 
$FILLC, (SP)+ 


2$ 
$NULL ,- (SP) 
1(SP) 

6$ 

PC $TYPEC - 
$SCHARCNT 

7$ 
PROCESSOR 
#" ,(SP) 
PC, $TYPEC 
#7. $CHARCNT 
9$ 

(SP) + 

2$ 

as$TPS 
$TYPEC 
2(SP) , a$TPB 
a$TkS 
a$TKB,-(SP) 
ar ee00. (SP) 
#23, (SP)+ 
2$ 

a$TkS 

3$ 
a$TKB,-(SP) 
#177600, (SP) 
#21, (SP)+ 
3$ 
#CR,2(SP) 


ALF ,2(SP) 
$TYPEX 
(PC)+ 


:eYES, SKIP TYPE OUT 
7:PUSH CHARACTER TO BE TYPED ONTO STACK 
::BR IF IT ISN'T THE TERMINATOR 
VHF TERMINATOR POP IT OFF THE STACK 
a aRaT RO 
; ¢ADJUST RETURN PC 


RETURN 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


+ <CR><LF> EQUIV 
YPE A CR AND LF 


32CLEAR CHARACTER COUNT 


ER 

:IS IT TIME FOR FILLER CHARS.? 
al NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

SAND THE NULL CHAR. 
3 DOES A NULL NEED TO BE TYPED? 

:BR IF en ae POP THE NULL OFF OF STACK 
3360 TYPE A NULL 

:DO NOT COUNT AS A COUNT 
> LOOP 


7 sREPLACE TAB WITH SPACE 
PACE 


OP 
:¢POP SPACE OFF STACK 
GET NEXT CHARACTER 
::WAIT UNTIL PRINTER IS READY 


;LOAD CHAR TO BE TYPED INTO DATA REG. 
SISEE IF KEYBOARD IS TALKING. 

3 BRANCH IF IT ISN'T. 

33PUSH CHARACTER ONTO STACK 

;sBIT CLEAR TOP wk woe PARITY BIT. 
2iSEE IF ae ISA 


; H NEXT CHARACTER ON STACK 
;-BIT CLEAR TOP BYTE ae PARITY BIT. 


BRANCH BACK FOR MORE WAIT IF NOT. 
HIS CHARACTER A CARRIAGE RETURN? 


¢ :BRANCH IF _NO 
tEYES-CLEAR CHARACTER COUNT 
iis CHARACTER A LINE FEED? 


BRANCH YES 
>: COUNT THE CHARACTER 


SEQ 0026 


CZ7M9BD0 15 a ona UBI BOOT 


TYPE ROU 


1037 


000001 
000100 


000002 
173626 
173634 


173624 
173620 
000004 


000002 
172412 
177256 
000062 
173552 
173524 
000004 
000002 
173502 
000020 
000013 


MACRO M1111 
SCHARCNT: 
$TYPEX: 
$TPS: 
$TPB: 

Lis 
SFILLS 
SFILLC 
STPFLG 
SQUES: 
SCRLF 
SLF: 

. SBTTL 

000236 $ATYI: 

000226 S$ATY3: 

000220 S$ATY4: 
SATYC: 

173676 

173667 

000004 
1$: 
2s: 

173574 

000016 3$: 

000004 
4$: 
5$: 
10$: 
11$: 

173516 

000004 
12$: 


-WORD 0 
RTS PC 

. WORD 177564 

177566 

BYTE 0O 

BYTE 2 

BYTE 12 

BYTE 0 

ASCII se ite 
-ASCI1 <15 

«ASCIZ <12> 
APT COMMUNICATIONS ROUTINE 
MOVB #1,SFFLG 
MOVB #1 ,$MFLG 
BR SATYC 
MOVB #1,SFFLG 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB SMFLG , 
BEQ 5$ 
CMPB MAPTENV, SENV 
BNE $ 
BITB #APTSPOOL ,SENVM : 
BEQ 3$ 
MOV a4 (SP) ,RO 
ADD #2,4(SP) 
TST SMSGTYPE 
BNt 1$ 
MOV £  MSGAD 
TSTB + 
BNE «> 
SUB SMSGAD ,RO 
ASR RO 
MOV RO, SMSGLGT 
MOV #4, SMSGTYPE 
BR 5$ 
MOV a4(SP), Pe 
ADD #2,4(SP 
MOV 195396 sp 
JSR PC, $TYPE 
- WORD 0 
TSTB wrte 
BEQ 12$ 
TST SENV 
BEQ 12$ 
TST SMSGTYPE 
BNE $ 
MOV a4 (SP), SFATAL 
ADD #2,4(SP) 
INC $MSGTYPE 
CLRB SFFLG 
CLRB S$LFLG 
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; CHARACTER COUNT STORAGE 


3zTTY PRINTER STATUS REG. ADDRESS 

eeTty PRINTER BUFFER REG. ADDRESS 
CONTAINS NULL CHARACTER FOR FILLS 

: CONTAINS # OF FILLER we ge REQUIRED 
s INSERT FILL CHARS. AFTER A ‘LINE FEED"' 
"TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
: }QUESTION MARK 

 CARRAIGE RE TURN 

; ;LINEFEED 


;TO REPORT FATAL ERROR 
2370 TYPE A MESSAGE 


3370 ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 

Ate + R1_ ON STACK 
+ SHOULD TYPE A MESSAGE? 
:IF NOT: BR 
:ZOPERAT ING UNDER APT? 


F 
; SHOULD _SPOOL MESSAGE S? 
iit NOT: BR 
; GET MESSAGE ADDR. 
; [BUMP RETURN ADDR 
+4 IF DONE W/ LAST XMISSION? 
;IF NOT: WAIT 
; PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 


24 SUB START OF MESSAGE 


SP TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 
; ; PUSH 199776 ON STACK 
>CALL TYPE MACRO 


;SHOULD REPORT FATAL ERROR? 
:IF NOT: BR 
Aomie UNDER APT? 


BR 
FINISHED LAST MESSAGE? 
STF NOT: WAIT 


3 7GET ERROR # 
;BUMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
3:CLEAR LOG FLAG 


SEQ 0027 


CZ7M9BD0 M9312/1144 UBI BOOT 
APT COMMUNICATIONS ROUTINE 


005444 
0 


005462 
005464 































000001 
000100 
000040 


177560 
177562 


022767 


117746 
042716 


021627 
005 


000176 
177760 
177754 
177600 
060007 
173352 


006213 
006220 
172430 
006231 


177676 


177672 


177600 


000025 
006206 
000006 


C 
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173410 


900001 


CLRB SMFLG CLEAR MESSAGE FLAG 
MOV (SP)+,R1 ;POP STACK INTO R17 
MOV (SP)+,RO : :POP STACK INTO RO 
RTS PC RE TURN 

SMFLG: .BYTE 0 : ZMESSG. FLAG 

$LFLG: .BYTE 0 3:LOG FLAG 

SFFLG: .BYTE 0 sz FATAL FLAG 

APTSIZE=200 

4PTENV=001 

APTSPOOL =100 

APTCSUP=040 

.SBTTL TTY INPUT RO INE 

ff A AAAARAAAARAAAR AERARAAKAEAEAARARERAAHRARAARARAREARARATEARAETEREEEAREREE 

$TKS: . WORD 177560 ii TTY KBD STATUS 

$1KB: . WORD 177562 ;i TTY KBD BUFFER 

-ENABL LSB 


5 RRA ARERR REAR AR EERE A REE R EERE ERR REAR A RE RRR REE 
*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 
> *SERVICE THE TEST FOR CHANGE IN SOFTWARE Swi TCH REGISTER TRAP CALL 


;*WHEN OPERATING IN TTY FLAG _— 
SCKSWR: CMP ASWREG, SWR :IS THE SOFT-SWR SELECTED? 
BNE 15$ BRANCH IF NO 






TSTB = aSTKS £3 CHAR THERE ? 
BPL 15$ :IF NO, DON'T WAIT AROUND 
MOVB  a$TKB,-(SP) ‘SAVE THE CHAR 
BIC #°(177, (SP) *STRIP=OFF THE ASCII 
CMP #7, (SP)+ :1S IT A CONTROL G? 
BNE 15$ = NO, RETURN TO USER 
CMPB —s- $AUTOB,, #1 > ARE WE RUNNING IN AUTO-MODE ? 
BEQ 15$ + BRANCH IF YES 
TYPE ,SCNTLG 72ECHO THE CONTROL-G (*G) 
$GTSWR: TYPE /SMSWR ::TYPE CURRENT CONTENTS 
MOV SWREG,-(SP) i:SAVE SWREG FOR TYPEQUT 
TYPOC _ 22G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE , SMNEW > PROMPT FOR NEW SWR 
19$: CLR ~(SP) i: CLEAR COUNTER 
CLR -(SP) 7: THE NEW SWR 
7$: STB ~—s- aS TKS 2? CHAR THERE ? 
BPL 7$ “IF NOT TRY AGAIN 
MOVB = a$TKB,-( SP) :7PICK UP CHAR 
BIC #*0177, (SP) **MAKE IT 7-BIT ASCII 
9%: CMP (SP) #25 :1S IT A CONTROL=U? 
BNE 10$ * BRANCH IF NOT 
TYPE »SCNTLU ZIYES, ECHO CONTROL-U (*U) 
208: ADD #6,SP ; IGNORE PREVIOUS INPUT 


19% TILET'S TRY IT AGAIN 
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TT ROUT INE 


065750 


021627 


000015 
000004 
000002 


000006 
005211 
173225 


000100 


177164 
000060 


000067 


000060 
000002 


000002 
177776 
005210 


000004 
177476 
177472 
177600 
000004 
177444 
177440 
177600 
000021 
000004 
000004 


MACRO M1111 


10$: 


173244 


000001 
177574 


16%: 


SERRA RAE AEEERAREERR ARERR KERREERE RARER AAEREEE TERE EREE HE 


A SINGLE CHARACTER FROM THE TTY 


: 2 INPUT A SINGLE yg FROM THE TTY 
CHARACTER IS ON THE STA 
T:WITH PARITY BIT STRIPPED OF F 


S*THIS ROUTINE WILL INPUT 
I*CALL: 
** 


‘* 
© 
-* 
1 


000002 
1$: 


000004 
000004 
000023 

et: 


000140 3$: 


$SRDCHR: MOV 
MO 


D 
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#100, a$TKS 


PC ,S$TYPEC 
ne 


8 

(SP) ,467 
18$ 

#60, (SP) + 
2 (SP) 


2 (SP) 
-2(SP), (SP) 
7$ 

, SQUES 

20$ 


RDCHR 
RETURN HERE 


(SP) ,~ SP) 
4(SP) ,2(SP) 
a$TKS 


1$ 
@$TKB,4 (SP) 


#*(<177>,4(SP) 


4(SP) #23 
3$ 

a$TKS 

2$ 
a$TKB,-(SP) 
#°C177, (SP) 
(SP)+, “21 
2$ 

1$ 

4(SP) #140 
4$ 


4(SP) 4175 
4$ 


eI IT A <CR>? 


hes THE TTY 
SGET RID OF JUNK IF ANY 
SI$ IT iA CONTROL - 5? 


:iMAlT FOR A CHARACTER 
: LOOP UNTIL_ITS THERE 


SIF NOT DISCARD IT 


. 
ee 


at IT UPPER CASE? 
; CH IF YES 
TIS IT A oT CHAR ? 


ANCH IF NO 
ssVeS, US y “ue FIRST CHAR? 


AND <LF> 
;RE-ENABLE ab. KBD INTERRUPTS? 
"RE-ENABLE TTY + 7D INTERRUPTS 
URN 


: :BRANCH IF YES 


OFF ASCII 
1S THIS THE FIRST CHAR 
«BRANCH IF YES 
INO, SHIFT PRESENT 


* KEEP COUNT OF CHAR — 
LISET IN NEW CHAR 


7 SIMULATE CONTROL =U 


; PUSH DOWN THE P( 


SAVE THE PS 
WA 


‘BRANCH 


YES, RE SUME 


: BRANCH IF 


SEQ 0029 


E 
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'yY INPUT ROUTINE SEQ .030 
006060 042766 000060 000004 BIC #40,4(SP) ;7MAKE 1T UPPER CASE 
006066 000002 4$: RT] :;GO BACK TO USER 


5S RAAAAAAARARERARARRHERS RETAKE RARARAAARARARRAARAREARARHRERL RARER EAEE 


>*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


s*CALL: 
ot RDLIN 32, INPUT A STRING FROM THE T.Y 
=a RETURN HERE ;ZADDRFSS OF FIRST CHARACTER WILL BE ON THE STACK 
7* 72 TERMINATOR WILL BE A BYTE OF ALL O'S 
006070 010346 $RDLIN: MOV R3,-(SP) S SAVE R3 
006072 012703 006176 1$: MOV #$TTYIN,R3 2 GET ADDRESS 
006076 022703 006206 2$: CMP #$TTYINGS, ,R3 ;BUFFER FULL? 
006102 101405 BLOS 4$ ::BR IF YES 
006104 104407 RDCHR 3:GO READ ONE CHARACTER FROM THE TTY 
606106 112613 MOVB (SP)+,(R3) 32GET CHARACTER 
006110 122713 000177 10$: CMPB #177, (R3) 371S 17 A RUBOUT 
006114 001003 BNE 3$ :;SKIP IF NOT 
006116 104401 005210 4$: TYPE , SQUES i TYPE A ‘?' 
006122 000763 BR 1$ 7 7CLEAR THE BUFFER AND LOOP 
006124 111367 (000044 3$: MOVB (R3) ,9$ :ZzECHO THE CHARACTER 
006130 104401 006174 TYPE 9 
006134 122723 000015 CMPB #15, (R3)+ ; CHECK FOR RETURN 
006140 001356 BNE 2$ LOOP IF NOT RETURN 
006142 105063 177777 CLRB -1(R3) ‘CLEAR RETURN (THE 15) 
006146 104401 005212 TYPE _$LF 7i TYPE A LINE FEED 
006152 012603 MOV (SP)+,R3 RESTORE R3 
006154 011646 MOV (SP) ,-(SP) ; ADJUST THE STACK AND PUT ADDRESS OF THE 
006156 016666 000004 000002 MOV 4(SP),2(SP) 3 FIRST ASCII CHARACTER ON IT 
006164 012766 006176 000004 MOV A$TTYIN,4(SP) 
006172 000002 RT] ; RETURN 
006174 000 P 9$: -BYTE 0 STORAGE FOR ASCII CHAR. T9 TYPE 
006175 000 .BYT 0 > TERMINA TOR 
006176 $TTYIN: .BLKB &. ZZRESERVE 8 BYTES FOR TTY INPUT 
006206 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> :; CONTROL ‘U'' 
006211 012 000 , 
006213 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> sz CONTROL ''G'' 
006216 012 000 
006220 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 
006223 127 122 040 
006226 075 040 000 
006231 040 040 116 SMNEW: .ASCIZ / NEW = / 
0062 105 127 040 
006237 075 040 000 
1039 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DIS UU IUIOIIIISIIUIIOIIIIIUIOUIIOU UO orn tt htiktnrntntnns 
:*THIS ROUTINE IS USED TO _— A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL <ASCII) NUMBER AND TYPE IT 
sabi CS-— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;*CALL 

i MOV NUM, - (SP) 7 NUMBER TO BE TYPED 

if TYPOS 77CALL FOR TYPEOUT 

:* " BYTE 7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE ™M 7iM=1 OR O 
+ 32 1=TYPE LEADING ZEROS 
3° 72 0=SUPPRESS LEADING ZEROS 





F 
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7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


BINARY TO OCTAL (ASCII) AND TYPE SEQ 0031 
s*CALL: 
3* MOV NUM ,- (SP) ; ;NUMBER TO BE TYPED 
i* TYPON ;7 CALL FOR TYPEOUT 
:*$1¥POC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
oC 
3 MOV NUM , = (SP) ; ;NUMBER TO BE TYPED 
ae TYPOC ;:CALL FOR TYPEOUT 
006242 017646 000000 $TYPOS: MOV a(SP) ,-(SP) :zPICKUP THE MODE 
006246 116667 000001 000211 MOVB ey SOF ILL :;LOAD ZERO FILL SWITCH 
006254 112667 000207 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
0062 062716 000002 ADD #2, (SP) ; ;ADJUST RETURN ADDRESS 
006264 06 BR $TYPON 
006266 112767 000001 000171 $TYPOC: MOVB #1,S0F ILL 37SET THE ZERO FILL SWITCH 
006274 112767 000006 000165 MOVB #6, SOMODE +1 szSET FOR SIX(6) DIGITS 
006302 112767 000005 000154 $TYPON: MOVB #5, SOCNT :zSET THE ITERATION COUNT 
006310 010346 MOV R3,-(SP) ;; SAVE R3 
006312 010446 MOV R4,-(SP) SAVE R4 
006314 010546 MOV R5,-(SP) ay on R5 
006316 116704 000145 MOVB SOMODE +1,R4 ;GET THE NUMBER OF DIGITS TO TYPE 
006322 005404 NEG RS 
006324 062704 000006 ADD #6,R4 ;; SUBTRACT IT FOR MAX. ALLOWED 
006330 110467 000132 MOVB R4,S0MODE 72 SAVE IT FOR USE 
006334 116704 000125 MOVB SOF ILL,RS taf THE ZERO oa SWITCH 
006340 016605 000012 MOV 12(SP),R5 PICKUP THE INPU —" 
006344 005003 CLR R3 = CLEAR THE OUTPUT 
006346 006105 1$: ROL R5  CROTATE MSB INTO gore 
006350 000404 BR 3$ ::GO DO MSB 
006352 006105 2s: ROL R5 72 FORM THIS DIGIT 
006354 006105 - ROL RS 
006356 00610 ROL RS 
010503 MOV R5,R3 
006362 006103 3$: ROL R3 et LSB OF THIS DIGIT 
105367 000076 DECB SOMODE ; TYPE THIS DIGIT? 
006370 100016 L 7$ : IF NO 
006372 042703 177770 BIC #177770,R3 :GE1 RID OF JUNK 
006376 001002 4$ TEST FOR O 
006400 005704 TST R4 SUPPRESS THIS 0? 
006402 001403 5EQ 5$ > ;BR IF YES 
006404 005204 4$: INC RS >= DON' T SUPPRESS ANYMORE 0'S 
006406 052703 000060 BIS #'0,R3 7 zMAKE THIS DIGIT ASCII 
006412 052703 000040 5$: BIS #* ,R3 77MAKE ASCII IF NOT ALREADY 
006416 110367 000040 MOVB R3,8$ 77 SAVE FOR TYPING 
006422 104401 006462 TYPE 8 32GO TYPE THIS DIGIT 
066426 105367 000032 7$: DECB SOCNT >: COUNT BY 1 
006432 003347 BGT 2$ ;;BR IF MORE TO DO 
006434 002402 LT 6$ re IF DONE 
006436 005204 INC R4 37 INSURE LAST DIGIT ISN*T A BLANK 
006440 000744 BR 2$ ie DO THE LAST DIGIT 
006442 012605 6$: MOV (SP)+,R5 RESTORE R5 
006444 012604 MOV (SP)+,R4 : SRESTORE 7 
006446 012603 MOV (SP)+,R3 bg RESTORE R 
006450 016666 000002 000004 MOV 2(SP) ,4(SP) ;SET THE a FOR RETURNING 
006456 012616 MOV (SP) +, (SP) 


Ro SP a Ra a I eee eee 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0032 
006460 000002 RTI 7 sRETURN 
006462 000 8$: -BYTE ;¢STORAGE FOR ASCII DIGIT 


006463 000 .BYTE 77 TERMINATOR FOR TYPE ROUTINE 
006464 000 
006465 000 SOFILL: .BYTE ;ZERO FILL SWITCH 


0 
0 

SOCNT: .BYTE 3 hs tl DIGIT COUNTER 
0 


006466 000000 SOMODE: .WORD :NUMBER OF DIGITS TO TYPE 
1040 .SBTTL SAVE AND RESTORE RO=R5 ROUT INES 


CS AARARAAHRAAARRARARERRAERERARAERARERARAERAARARERAAARARRERARARREEERE 
s*SAVE RO-R5 

:*CALL: 

** 


; SAVREG 
;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
-* 


+e TOP=-=(+16) 
s* ¢2-==(+18) 
p* +4-=-R5 


* +6---R4 
3% +8---R3 
3*+10---Re 
j*+12---R1 
3*+14---R0 
0064 70 $SAVREG: 

' 006470 010046 MOV RO,-(SP) 3:PUSH RO ON STACK 
006472 010146 MOV R1,~(SP) ;=PUSH R1 ON STACK 
006474 010246 MOV R2,-(SP) SH R2 ON STACK 
006476 010346 MOV R3,-(SP) PUSH R3 ON STACK 
006500 010446 MOV R4,-(SP) 3=PUSH R4& ON STACK 
006502 010546 « MOV R5,-(SP) : PUSH R5 ON STACK 
006504 016646 £000022 MOV 22(SP) ,~(SP) 33SAVE PS OF MAIN FLOW 
006510 016646 000022 MOV 22(SP) ,-(SP) 73SAVE PC OF MAIN FLOW 
006514 016646 000022 MOV 22 (SP) .=(SP) :SAVE PS OF CALL 
006520 016646 000022 MOV 22(SP),-(SP) 33SAVE PC OF CALL 
006524 000002 RTI 

;*RESTORF RO-R5S 

s*CALL: 

:* RESREG 
006526 $RESREG: 
006526 012666 000022 MOV (SP)+,22(SP) zsRESTORE PC OF CALL 
006532 012666 000022 MOV (SP)+,22(SP) ; ¢RESTORE PS OF CALL 
006536 012666 000022 MOV (SP)+,22(SP) :sRESTORE PC OF MAIN FLOW 
006542 012666 000022 MOV (SP)+,22(SP) sRESTORE PS OF MAIN FLOW 
006546 012605 MOV (SP)+,R5 POP STACK INTO R5 

* 006550 012604 MOV (SP)+,R4 ;:POP STACK INTO R4 

006552 012603 MOV (SP) +,R3 3:POP STACK INTO R3 
006554 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
006556 012601 MOV (SP)+,R1 3:POP STACK INTO R1 
006560 (SP)+,RO 3: POP INTO RO 







RTI 
-SBTTL TRAP DECODER 


DUO IRUIIIISUIIIIOISUIIUU ICID ISU DR rt trite itt tities 
7*THIS ad WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
»;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
+ *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 












H 
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3*GO TO THAT ROUTINE. 
$TRAP: RO,-(SP) oe 
MO 


AVE RO 
2(SP) ,RO Ger TRAP ADDRESS 
-(RO) ; ;BACKUP BY 2 

(RO) ,RO [GET RIGHT BYTE OF TRAP 
R : POSITION FOR INDEXING 
$TRPAD (RO) ,RO ‘ PINDEX TO TABLE 

RO 72G0 TO ROUTINE 





33THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


006606 011646 $TRAP2: MOV (SP) ,-(SP) 3zMOVE THE PC DOWN 
006610 016666 000004 000002 MOV 4(SP) ,2(SP) 7zMOVE THE PSW DOWN 
006616 000002 RT! ;sRESTORE THE PSwW 


-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING acDDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’' INSTRUCTION. 


\ ; ROUT INE 
006620 006606 $TRPAD: .WORD $TRAP2 ; 
006622 004646 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
006624 006266 $TYPOC ::CALL=TYPOC —-TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
006626 006242 $TYPOS ::CALL=TYPOS — TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
- 006630 006302 $TYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
006632 005536 $GTSWR ;;CALL=GTSWR — TRAP+5(104405) GET SOFT-SWR SETTING 
006634 005466 SCKSWR ;:CALL=CKSWR  TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
006636 005750 SRDCHR ::CALL=RDCHR —_TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
006640 006070 $RDLIN ::CALL=RDLIN  TRAP+10(104410) TTY TYPEIN STRING ROUTINE 
006642 006470 SSAVREG ::CALL=SAVREG TRAP+11(104411) SAVE RO-R5S ROUTINE 
am 006644 006526 SRESREG ::CALL=RESREG TRAP+12(104412) RESTORE RO-R5 ROUTINE 
1045 
1046 :MESSAGES 
1047 
1048 
1049 006646 006662 ROMPTR: .WORD ROMNUM 
1050 606650 065 070 AROM:  .ASCII /58/ +s 
1051 006652 064 070 “ASCII /48/ se 
1052 006654 071 ASCII /49/ tae 
1053 006656 065 ASCII /50/ ** 
105 065 071 “ASCII = /59/ = 
1055 006662 062 060 ROMNUM: ASCII /20/ 
1056 006664 063 065 “ASCII /35/ 
1057 063 063 ASCII /33/ 
1058 006670 063 064 ASCII /34/ 
1059 006672 063 062 “ASCII = /32/ 
1 006674 207 377 377 BELL: .ASCIZ <207><377><377> 
1061 006700 012 015 116 MNORM:.ASCIZ <12><15>/NO ROMS RESPONDED TO THE SIZING ROUTINE/<12><15> 
006703 117 040 122 


SEQ 0034 


24=SEP=79 16:37 PAGE 61-25 


MACRO M1111 


CZ7M9BDO M9312/1144 UBI BOOT 


TRAP TABLE 


MOR Ws TOUR Re OU 


wWruO LIS= HANS 
ON O- -— MNO 


ote ee 


~OMOoyTROM—-ON OW 


HYNK OK MK NK INK 


1062 
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TRAP TABLE 


1065 006754 104 
006757 107 
006762 122 
006765 040 
006770 062 
006773 040 
006776 117 
007001 061 
007004 064 

7007 125 
007012 072 
007015 065 
007020 000 

1066 007021 O12 
007024 117 
007027 124 
007032 120 
007035 117 

704 105 
007043 122 
007046 120 
007051 116 
007054 040 
007057 104 
007062 * 105 
007065 103 
007070 103 
007073 105 
007076 012 

1067 007077 114 

- 007102 056 
007105 
007110 040 
007113 040 
007116 040 
007121 
007124 101 
007127 011 
007132 116 
007135 111 
007140 056 
007143 105 
007146 103 
007151 103 
007154 105 





AO? KIRK AMO 


2’ watt HOt wt IO 
— MONSON -W& 


—ONM—-OENOO— KES 
ONUOA | S$ ONMNEAOOCOCON WNW 


par a Te tt ge 
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DRHEAD: .ASCIZ /DIAG. ROM (E20) (FOR 11-44 UBI: E58)/ ;** 


e 


t 


015 i 
103 -ASCIZ /LOC. NO DIAG. RUN DIAG. 


-OoO--- - - O— 
of-ODOONMUes 
SoH ENS UO 


BRHEAD: .ASCII <12>/BOOTSTRAP ROM ENTRY POINTS AND DEVICE CODES/<15><12> 


DEVICE CODE/ 





SEQ 0035 


CZ7M9BDO 
TRAP TABL 


1069 007156 
007161 


00 
1071 007257 


00 
1072 007315 
00 


00 
1073 007346 


00 
1074 007373 
00 





+ ‘aint UBI BOOT 


120 
125 
040 
127 
055 
111 
126 
124 
040 


<= 
R==S98 —M 
OALWOOMN 


_—— 1 OH os 
_— 
Ro 


3sR= 
so 


an call aa ond eel ead al aa a ed td a ad ed oe 
SUSSSsSrSssek 
MIWWWNUNE WO VIO 


ASARKV=RSANOVANSRKAS 


— Ss 2 OS = O - = OO - 
Rae a ahs ahah 


wy 
—M o— 
VINO 





— NOWO-0O-ODONOr 
N OA -NMEOUOLW 


= 
RVR 
HOMES HKHNMEM OMMONOLON-—-oC 


o-- + O- -- O > — 3 OR SS SO SS SS 
MOM — SSH UNOKNMSWO UNOS OA UNOS O- RUNNNN90Y_  ONMUA ORK SOW WNW NWO RM PON VM 


— SS OS SS OS SO OS oS ee ed ee ed ed ced ed eed ed — 3 OP SS SS SS ss 


On — fF H- OnwsNN-O- = COOCCCO 
O—NMNONUAOKOARN WWW 


g 


oad aed od 
Ww 


<a 
Nm 
Mm 


NO 
ae) 


on ONO 


MNMES OMNI 


— 2 2 On SS 
— SS 22 OO O PR SS SS o-o--— Oo O -- OS - O 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


ASCII 


-ASCIZ 


ASCII 


K 
16:37 PAGE 63 


@PSEUDO POWER-FAIL VECTOR ADR./NEW PCa 


/COULD NOT FIND DEVICE CODE / 


/FOUND UNEXPECTED DEVICE CODE / 


/POWER=FAIL VECTOR ERROR/<15><12> 


/ EXPECTED RECIEVED/<15><12> 


/POWER=FAIL DATA ERROR/<15><12> 
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SEQ 0037 

1075 007422 011 105 130 ASCIZ / EXPE TED RECIEVED/<15><12> 

007425 120 105 103 

7430 124 105 104 

007433 011 122 105 

007436 103 111 105 

007441 126 105 104 

007444 015 012 000 
1076 007447 103 122 103 CRCMSG: .ASCIZ /CRC ERROR IN ROM E=/ 

007452 040 105 122 

007455 122 117 122 

007460 040 111 116 

007463 040 = 122 117 

74 115 040 105 

007471 055 000 
1077 007473 103 « 117 125 PFMSG: .ASCIZ /COULD NOT DETERMINE POWER-FAIL VECTOR ADDRESS/ 

007476 114 104 040 

007501 116 117 124 

007504 040 104 105 

007507 124 105 122 

007512 115 111 116 

007515 105 040 120 

007520 117 127 105 

007523 122 055 106 

007526 101 111 114 

007531 040 126 105 

007534 103 124 117 

007537 122 040 101 

007542 1 104 122 

007545 105 123 123 


M 
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TRAP TABL SEQ 0038 


1079 007551 116 117 040 NOROMM: .ASCII /NO ROMS TEST ERROR/<15><12> 
007554 122 117 115 
007557 123 040 124 
007562 105 123 124 
007565 040 105 122 
007570 122 117 122 
007573 015 012 : 
1080 007575 040 040 040 ASCIZ / VALUE ADDRESS/<15><12> 
007600 40 040 040 
007603 J40 040 126 
7606 101 114 125 
007611 105 040 040 
007614 040 101 104 
007617 104 122 105 
007622 123 123 015 
007625 012 000 
1081 007627 015 012 122 SEQMSG: .ASCII <15><12>/ROM SEQUENCE IS INCORRECT AS PER / 
007632 117 115 040 
007635 123 105 121 
007640 125 105 116 
007643 103 105 040 
764 . 711 123 040 
007651 111 116 103 
007654 117 122 122 
007657 105 103 124 
7662 040 101 123 
007665 040 120 105 
007670 122 040 
1082 007672 111 116 123 eASCIZ  /INSTALLATION PROCEDURE . / 
007675 124 101 114 
007700 114 101 124 
007703 111 117 116 
7706 040 120 122 
007711 117 103 105 
007714 104 125 122 
007717 105 056 000 
1083 -EVEN 
1084 
1085 
1086 7 BUFFERS 
1087 
1088 007722 000030 BUF1: .REPT 30 
1090 007722 000000 -WORD 0 
007724 000000 -WORD 0 
007726 000000 -WORD 0 
000000 -WORD 0 
007732 000000 -WORD 0 
007 000000 -WORD 0 
000000 -WORD 0 
007740 000000 -WORD 0 
007742 000000 -WORD 0 
007744 000000 -WORD 0 
007746 000000 -WORD 0 
007750 000000 «WORD Q 
007752 000000 -WORD 0 
007754 000000 -WORD 0 
007756 000000 -WORD 0 
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TRAP TABLE 


338 


ed ik a ca ld a el ld ae cl eel cd el el ce ee ce cl ce ee cd 
223559989508 333333 


4 
NO 






SEQ 0039 








o 
COOCCOCOCCCCOO 


5% 
ne FOLLOWING CODE WAS ADDED IN REV BO: 
: + CLEAR" CLEARS THE NEW LABEL AND BUFFER LOCATIONS 


= $'CONT" AND "'CON2’' FILL ‘BUF1'' WITH THE CONTINUATION ROM DATA AND 
>+SET ERROR FLAGS WHEN NECESSARY 


o> 
+" HOLCK1'' AND ‘HOLCK2"* CHECK FOR HOLES TO VERIFY THE POWER FAIL 
: +VECTOR ADDRESS; ALSO SET 11/60 INDICATOR WHEN APPLICABLE 


; +" ROMTYP’’ AND "'ROMNM'' FILL THE MESSAGE BUFFER WITH A CONTINUATION ROM 
[+MESSAGE AND WITH A ROM IDENTIFICATION MESSAGE 
a 
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TRAP TABLE 

1116 011116 012700 
1117 011122 005020 
1118 011124 0027 
1119 011130 101774 
1120 911132 207 
1127 011134 039167 
1122 011140 001001 
1123 011142 20 
1124 011144 050167 
1125 011150 . 012720 
1126 011154 012720 
1127 011160 207 
1128 011162 005703 
1129 011164 1001 
1130 011166 207 
1131 011170 030167 
1132 011174 1005 
1133 011176 014067 
1134 011202 062700 
1135 011206 00020 
1136 011210 012710 
1137 011214 014002 
1138 011216 700 
1139 011222 010220 
1140 011224 207 
1141 011226 032767 
1142 011234 001415 
1143 011236 207 
1144 011240 032767 
1145 011246 001401 
1146 011250 000207 
1147 011252 122737 
1148 011260 001403 
1149 011262 052767 
1150 011270 016716 
1151 011274 20 
1152 011276 005713 
1153 011300 001003 
1154 011302 016716 
1155 011306 20 
1156 011310 022713 
1157 011314 001401 
1158 011316 14 
1159 011320 767 
1160 011324 012705 
1161 011330 004767 
1162 011334 000011 
1163 011336 703 
1164 011342 016716 
1165 011346 20 
1166 011350 032713 
1167 011354 001015 
1168 011356 000241 
1169 011360 006101 
1170 011362 030167 
1171 011366 001003 
1172 011370 062702 


BOOT 


012262 
012324 


001152 


001132 
000001 
177777 


001116 
001102 
000002 


001016 
000001 


000024 
012350 
173130 
000004 
000740 
000170 


167530 
000002 
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167662 


167650 


173224 
001020 


LEAR: 
$: 


2s: 


ROMNM : 
1$: 


#SEQBuUS 
(RO)+ 


Me, 
RETURN, 
PC 

(R3) 

1$ 
FINISH, 
PC 

wi, 

es 
ROMAM 


#4, 
RETURN, 
PC 


#170, 
3$ 


RI 
RI, 
e$ 


ae, 


B 4 
24-SEP=79 16:37 PAGE 65 


#F INISH 
CONF IN 


CONER| 
(RO) + 
(RO) + 


CONF IN 
CONER?2 
RO 
(RO) 
Re 

RO 
(RO) + 


ROMF IN 
ROMF IN 
4175224 


F! AG 
(R6) 


(R6) 
(R3) 


R3 
(R6) 
(R3) 


ROMF IN 
Re 


3*SET UP TO CLEAR LOCATIONS 
+ 


[+ALL CLEARED? 
‘ +BRANCH IF NO 


+ 
3; +*CONTINUATION CHIP? 
;*BRANCH IF YES 


s@ 
;+CHIP DOES NOT BELONG HERE-SET ERROR FLAG 
;+SET CONTINUATION ROM INDICATOR 

;+ILLEGAL ROM'S DEVICE CODE =-1 


+ 

:*POINTING OVER THIS CHIP? 
; +BRANCH IF YES 

“¢@ 

3 +CONTINUATION CHIP? 


; +BRANCH IF YES 
3+CHIP IS MISSING-SAVE DEVICE CODE 
2¢ 


-+ 

+SET CONTINUATION CHIP INDICATOR 
3+GET PREVIOUS DEVICE CODE 
;+POINT TO CORRECT LOCA™' WN 

;+PUT IN DEVICE CODE 

+ 


+A CHIP IN SOCKET #1? 
+BRANCH IF NO 
+ 


+A CHIP IN SOCKET #2? 
*+BRANCH IF NO 
+ 


;+ARE SWITCHES SET? 
:+BRANCH IF NO 

:+SET 11/60 INDICATOR 
;+SET UP ALTERNATE RETURN 
+ 


+ARE WE FINISHED? 
+BRANCH IF NO 

*SET UP ALTERNATE RETURN 
+ 


3 +CONTINUATION CHIP? 
;+BRANCH IF YES 

+ITS A DEVICE CHIP-FIND SOCKET # 
+FIND SOCKET # 

+LOAD MSG INTO BUFFER 

+ 


Be Be Be Be Oe ® 


29 
:+POP OVER CONTINUATION CHIP DATA 
;+*SET UP ALTERNATE RETURN 


4 
;+BEGINNING A NEW ROM? 
;+BRANCH IF NOT 

+ 


;+POINT TO NEXT SOCKET 
:+I1S A ROM THERE? 

> *BRANCH IF YES 
;*POINT TO NEXT MSG 


SEQ 0040 


C 4 
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1$ 7; +CONT INUE 
2$: (R2)+, R5 ;*LOAD ROM ID 
PC, F 1LBUF ;+INTO THE MSG BUFFER 
o¢ 
BR 4$ i+ 
3$: MOVB #HT, (R4)+ 3+LOAD A TAB 
4$: PC 


a 


elelelelelele) 
aad aed aad ca al aed cd 
a8 ad od tl ec nl 


> *SEQUENCE TES 

;*THIS TEST VERIFIES THAT CONTINUATION CHIPS ARE LOCATED WHERE 
;+THEY BELONG, THAT THERE ARE NO DUPLICATE DEVICE ROMS, 

[+THAT THE ROMS ARE IN ALPHABETICAL ORDER, THAT THERE ARE NO 
;+HOLES, AND THAT SOCKET #2 HAS A CHIP IF THE PROCESSOR IS AN 11/60. 
[+1F THE ONLY PROBLEM IS ALPHABETICAL ORDER AND/OR HOLES, 

[+THEN A CORRECT SEQUENCE IS DETERMINED AND PRINTED OUT. 


:+FIRST, Ae FOR ILLEGAL CONTINUATION ROM ERRORS 
3+1F ANY ARE FOUND, PRINT ERROR MSG AND EXIT 


011416 012767 SEQTST: MOV MHT, ARG2 ;+SET UP FOR ‘ERR 
TST CONER1 7 +WAS THERE AN ERROR? 
> +BRANCH NO 


IF 
[+THE BIT IDENTIFIES THE CHIP 
ABLE 


167440 AG 

:+IDENTIFY THE ROM FOR PRINTOUT 
[+BRANCH IF FOUND IT 

seseT UP FOR NEXT ROM MSG 


:$SET UP TO IDENTIFY NEXT ROM 


; +WAS THERE AN ERROR? 
; +BRANCH IF 
167494 #CON ROMERR :+SET ERROR FLAG 
000604 1 3+PASS THIS ADDRESS TO ERRHAN 
ONER2 [+BUILD THE MSG 
176272 CONER2, MES1 3° 


000562 
176270 MES1+2 s¢ 
BR 4$ ;+REPORT THE ERROR 
000560 3$: (R2),  ARG1 3+PASS MSG ADDRESS TO *ERRHAN’* 
172300 4$: a ERRHAN ;+REPORT ERROR 
3¢ 


s+IF THERE WERE NO CONTINUATION ROM ERRORS, BLILD THE FOLLOWING TABLE: 


SE QBUF : a" DEVICE CODE 
# OF CONTINUATION ROMS FOR FIRST DEVICE 

SECOND DEVICE CODE 
# OF perhnceteanan ROMS FOR SECOND DEVICE 


ee a et dd ot = 2 ot ot ot ot tt Ht SS ot ot ot YH st IH 

me ee tk a at at ot oh at ot at st = 

Sitsisitdisatsaeeesdas 
oO 


ee et ad ad et 
CONOUSWR— 


ee ed ed ed ed ed ed = 
NM 

-oOo 
. 


Ne Sy gd gh phe oh yh gh gh gh ob 


ENDSEC: FOURTH (LAST) DEVICE CODE 
FOR A ‘HOLE'', THE DEVICE CODE WILL BE A O. 


1227 
1228 011544 012703 012262 FILTAB: MOV #SEQBUF , R3 ;*SET UP TO FILL A TABLE CALLED *‘SEQBUF"* 
1229 011550 012702 173000 MOV #173000, R2 3*POINT TO FIRST ROM 


ee ee ee ee ee 
‘e¢o6e6¢88 





aes 
e2cse 
—_— — YY  _ 
GEESS 
3 QSF 


ee ee ce ce ced ed ed ed ed 
Ww 
Oo 
oO 
po 
a’ 


Pg ee 
Oo 


* 
oO 
= 
=i 
oa 
=a 
oO 


1254 011636 


— ee ae od dod od = 


012703 
010304 
06 


lelelelelejlejlele) 
N 
™N 
Ron 
WG=NS2NS 


8 
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000001 


167326 
000514 


012262 


000004 
012276 


000004 
012276 


002000 
010016 
176066 


176064 
172102 


000200 
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167174 
000374 


167120 


1$: 


2$: 


3$: 


38: 


4$: 


D 4 
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#1, RO 

RO 

RO, ROMF IN 
3$ 

RO, CONF IN 
4$ 

(R2), (R3) 
#4, R3 
#200, R2 

RO, #20 

1$ 

ALPHCK 

-(R3) 

#2, R3 

5$ 


SEQ 0042 


+ 


POINT TO NEXT ROM 


vES 

:+1S IT A CONTINUATION CHIP? 

; +BRANCH IF YES 

[+1TS A DEVICE ROM-PUT DEVICE CODE INTO TABLE 
:+POINT TO NEXT DEVICE CODE LOCATION 
:+POINT TO NEXT ROM 
3 +ALL DONE? 
; *NO-BRANCH 
;+TABLE COMPLETELY BUILT 
3+COUNT ONE CONTINUATION CHIP IN LOCATION 
3+POINT TC NEXT DEVICE CODE LOCATION 
>> 


3+NOW CHECK DEVICE CODES IN ‘‘SEQBUF'’ FOR ALPHABETICAL ORDER AND 


3+CHECK FOR ‘HOLES’. 
;+AN ERROR MESSAGE AND EXIT. 


IF THERE IS A DUPLICATE DEVICE CODE, PRINT 
IF DEVICE 


CODES NEED SORTING 


;+AND/OR HOLES FILLING, DO IT AND SET THE SEQUENCE ERROR 


3 +FLAG. 


ALPHCK: MOV 
1$: MOV 


2s: 


3$: 


43: 


5$: 
6$: 


#SEQBUF , R3 
7 R4 

Ha. R4 

Re. #ENDSEQ 

(R3) 

7$ 

(R4) 

2$ 

(R3) (RS) 

4$ 

5$ 

2$ 

#4, 

R3. #ENDSEQ 

9$ 

1$ 

#DUPERR, ROMERR 

#MES1, 

(RS) 

(R4),  -MES1 

MES1+ 

PC, ERRHAN 

PC 

R3, RI 

RG R2 

(R2), RO 

(RI). — (R2)+ 

RO (R1)+ 

(R2), RO 

(R1) (R2) 

RO, (R1) 

#SEQERR, ROMERR 


ALSO CHECK FOR THE 11/60 SPECIAL CASE. 


:+SET UP TO CHECK ALPHABETIC es IN *‘SEQBUF’’ 
:+WILL BE COMPARING (R3) TO ( 

;+WHERE R3 AND R4 POINT TO DEVICE CODE LOCATIONS 
+ +PAST THE LAST DEVICE CODE? 

;+BRANCH IF YES 

:+I1S THERE A DEVICE CODE HERE? 

at CH IF NO 

+1 THERE A DEVICE CODE HERE? 

7 +BRANCH IF NO 

:+IS THE SEQUENCE CORRECT? 
;+BRANCH IF NO=-FOUND A DUPLICATE 
+ +BRANCH iv NO-NEED TO DO A SHIFT 
S+YES= CONT INUE 

:+POINT TO NEXT DEVICE CODE 

:+ALL DONE? 

;+BRANCH IF YES 

+ +NOT YET 

:+SET ERROR FLAG 

:+PASS THIS ADDRESS TO ‘FRRHAN’' 
er THE MSG 


; REPORT THE ERROR 

:$SET UP FOR THE SHUFFLE 
SSHIFT THE VALUES 
+ 
34 
++ 
it 
:+ 


S+SET THE SEQUENCE ERROR FLAG 
*+CONTINUE SORTING 


E 4 
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TRAP TABLE SEQ 0043 
1287 011772 010305 7$: MOV R3, R5 :+SET UP TO SEE IF WE HAVE A ‘HOLE’ 
1288 011774 020527 012276 R$: CMP RS. #ENDSEQ <+END OF TABLE? = 
1289 012000 103017 BHIS 9$ :+YES=THIS WAS NOT A ‘HOLE 
1290 012002 062705 000004 ADD we R5 :+#NO=POINT TO NEXT DEVICE CODE LOCATION 
1291 012006 005715 TST (R5) *+1$ THERE A ROM HERE? 

1292 012010 001771 BEQ 8$ > +BRANCH IF NO 

1293 012012 032767 000032 167076 BIT #32, ROMF IN ;+A_ROM IN SOCKET #2 ONLY? 
1294 012020 001004 BNE 11$ :+BRANCH It NO 

1295 012022 10573/ 173224 TSTB 34173226 #11760 SPECIAL CASE? 

1296 012026 001401 BEQ 11$ : +BRANCH IF 

1297 012030 000422 BR 10$ * +THE oa ROM MUST STAY IN SOCKET #2 
1298 012032 010301 11$: MOV R3, Q1 :+YES=THERE IS A HOLE THAT CAN BE FILLED 
1299 012034 010502 MOV RS. R2 *+#GET READY TO SHIFT THE VALUES 
1300 012036 000743 BR 6$ -+FILL IN THE HOLE 

1301 012040 032767 000002 000242 9$: BIT #2, FLAG ; +AN 11/60? 

1302 012046 001413 BEQ 10$ +BRANCH IF 

1303 012050 005767 000212 TST SE QBUF +4 *+1S SOCKET " EMPTY? 

1304 012054 007366 BNE 11$ + +BRANCH IF NO 

1305 012056 005767 000200 TST SE QBUF *+1S SOCKET #1 EMPTY? 

1306 012062 001405 BEQ 10$ :+BRANCH IF YES 

1307 012064 012701 012262 MOV #SEQRUF , R1 5+SET UP TO SHIFT 

1308 012070 012702 012266 MOV ASEQBUF +4, R2 *+CHIPS #1 AND #2 

1309 012074 000724 BR 6$ '+#DO THE SHIF 

1310 012076 032767 000200 167006 10$: BIT ASEQERR, ROMERR ;+WAS THERE A  SECUENCE ERROR? 
1311 012104 001001 BNE OUTTAB : “BRANCH IF YES 

1312 012106 000207 RTS PC i+ 

1314 :+THE FOLLOWING ROUTINE BUILDS THE E CORRECT SEQUENCE MSG TO BE 

1315 >+PRINTED AS AN ERROR MSG BY ‘ERR 

1317 012110 012767 010016 000200 OUTTAB: MOV #MES1, ARG1 :+PASS MSG ADR. TO ‘ERRHAN'' 
1318 012116 012767 000015 000174 MOV ACR, ARG2 *+PASS THIS TOO 

1319 012124 012700 012262 MOV #SEQBUF RO i+ 

1320 012130 013702 012326 MOV @YMESSPT, R2 ;+ 

1321 012134 012704 010016 MOV WMEST, RG *+START BUILDING THE ERROR MSG 
1322 012140 012705 012611 MOV MERMES4, R5 :+PUT IN THE FIRST PART 

1323 012144 004767 172314 JSR PC, F ILBUF - 

1324 012150 000015 CR ++ 

1325 012152 005710 TST (RO) :+I1S A ROM IN SOCKET #1? 

1326 012154 001004 BNE 1$ *+BRANCH IF YES 

1327 012156 062700 000004 ADD #4, RO +DO SOCKET #2 ONLY 

1328 012162 062702 000002 ADD #2, R2 

1329 012166 012767 010416 000126 1$- MOV #MES2, BUILD :$SET UP THE DEVICE CODE PART 
1330 012174 000310 SWAB (RO) 

1331 012176 012067 176214 MOV (RO)+, MES2 o 

1332 012202 105067 176212 CURB MES2+2 i+ 

1333 012206 012205 2$: MOV (R2)+, R5 *+IDENTIFY THE ROM # 

1334 012210 004767 172250 JSR PC, F [LBUF i+ 

1335 012214 000015 CR i+ 

1336 012216 016705 000100 MOV BUILD, R5 : +PUT IN EITHER DEVICE CODE OR CONTINUATION MSG 
1337 012222 004767 172236 JSR PC, F ILBUF ; 

1338 012226 000011 H1 

1339 012230 005720 iST (RO) + 2 ANY CONTINUATION ROMS? 

1340 012232 001405 BEQ 3$ + +BRANCH IF NO 

1341 012234 005340 DEC =(RO) >+COUNT DOWN ONE ROM 

1342 012236 012767 012350 000056 MOV ACONMES , BUILD :*Se! UP FOR CONTINUATION MSG 
1343 012244 009760 BR 2$ +CONT INUE 


PORT ts FG 
C2M9BDO_M9312/1144 UBI BOOT "MACRO M1111 24=SEP=79 16:37 PAGE 65-4 
TRAP TABLE 


SEQ 0044 

1344 012246 005710 3$: TST (RO) :+ANY MORE DEVICE ROMS? 
1345 012250 001346 BNE 1$ ;+BRANCH IF YES 
1346 012252 105014 CLRB (RS) ;+MUST END WITH O BYTE 
1347 012254 004767 171562 JSR PC, ERRHAN ;+REPORT THE ERROR 
1348 012260 000207 RTS PC i+ 
1360 
1351 012262 000000 SEQRUF: .WORD 0 ;+FIRST DEVICE CODE 
1352 012264 000000 -WORD 0 3+ OF CONTINUATION CHIPS FOR FIRST DEVICE 
1353 012266 000000 WORD 0 3+SECOND DEVICE CODE, ETC 
1354 012270 000000 WORD 0 za 
1355 012272 000000 WORD 0 it 
1356 012274 000000 «WORD 0 hd 
1357 012276 000000 ENDSEQ: .WwORD 0 :+FOURTH (LAST) DEVICE CODE 
1358 012300 000000 -WORD 0 3* 
1359 012302 000000 CONER1: .WORD 0 ;+EXTRA CONTINUATION CHIP ERROR FLAG 
1360 012304 000000 CONER2: .WORD 0 :+MISSING CONTINUATION CHIP FOR THIS DEVICE 
1361 012 000000 RETURN: .WORD 0 :+ALTERNATE RETURN ADDRESS 
1362 012310 000000 FLAG: WORD 0 :+BIT 1:11/60 
1363 012312 000000 CONFIN: .WORD 9 3 +CONTINUATION ROM FOUND INDICATOR 
1364 012314 000000 DEVFIN: .WORD 0 :+DEVICE ROM FOUND INDICATOR 
1265 012316 000000 ARG]: .WORD 0 7 +PASSES MSG ADR. TO ‘ERRHAN’' 
1366 012320 000000 ARG2: «WORD 0 7+PASSES CR OR HT TO ‘ERRHAN’' 
1367 012322 000000 BUILD: .WORD 0 i+ 
bs 012324 000000 FINISH: .WwORD 0 7 +ALTERNATE RETURN ADDRESS 
1370 012326 012340 MESSPT: .WORD MESTAB 
1371 012330 012636 MESS44: AROM1 pee 
1372 012332 012652 ARQM2 se 
1373 012334 012666 AROM3 jut 
1374 012336 012702 AROM4 see 
1375 012340 012716 MESTAB: ROM1 :+ASCII MSG TABLE 
1376 012342 012732 ROM2 3% 
1377 012344 012746 ROM3 i+ 
1378 012346 012762 ROM4 :+ 
1379 012350 11 123 040 CONMES: .ASCIZ /IS A CONTINUATION ROM/ 

012353 101 040 103 

012356 117 116 124 

912361 111 116 125 

012364 101 124 111 

012367 117 116 040 

012372 122 117 115 

012375 000 
1380 012376 015 012 101 ERMES1: .ASCIZ <15><12>/A CONTINUATION ROM IS INCORRECTLY LOCATED IN/ 

012401 040 103 117 

012404 116 124 111 

012407 116 125 103 

012412 126 111 117 

012415 116 040 122 

12420 117 115 040 

012423 111 123 040 

012426 111 116 103 

012431 117 122 122 

012434 - 105 103 124 

012437 114 131 040 

012442 114 117 103 

01264 101 124 105 . 





G 4 | 
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TRAP TABLE SEQ 0045 
012450 104 040 111 
012653 116 000 

1381 012455 015 012 101 ERMES2: .ASCIZ <15><12>/A CONTINUATION ROM IS MISSING FOR DEVICE CODE/ 
012460 040 103 117 
012463 116 124 1711 
012466 116° 125 101 
012471 124 111 117 
012474 116 040 122 
012477 117 115 040. 

612502 111 123 040 

012505 115 111 123 

012510 123 111 116 

012513 107 040 106 ‘ 
012516 117 122 040 

012521 104 105 126 

012524 111 103 105 

912527 040 103 117 

012532 104 105 000 ; 

1382 012535 015 012 124 ERMESS: .ASCIZ <15><12>/THERE IS A DUPLICATE ROM WITH DEVICE CODE/ 
012540 110 105 122 
012543 105 040 111 
012546 123 040 101 
012551 040 3. 104 125 
012554 120 114 111 
012557 103 101 124 
012562 105 040 122 
012565 117 115 040 
012570 127 111 124 
012573 110 040 104 
012576 105 126 111 
012601 103 105 040 
012604 103 117 104 
012607 105 000 

1383 012611 123 105 121. ERMES4: .ASCIZ /SEQUENCE SHOULD BE:/<12> 
012614 125 105 116 
012617 103 105 040 
012622 123 110 117 
012625 25 14 104 
012630 040 102 105 
012633 072 012 000 : 

1384 012636 122 117 115 AROM1: .ASCIZ /ROM 1(E48) / pee 
012641 061 050 , 
012644 105 064 070 

12647 051 040 000 

1385 012652 122 117 115 AROM2: .ASCIZ /ROM 2(E49) / pee 
012655 040 062 050 
012660 105 064 071 ’ 
012663 051 040 000 

1386 012666 122 117 115 AROM3: .ASCIZ /ROM 3(E50) / pee 
012671 040 063 050 
012674 105 065 060 
012677 051 040 000 

1387 012702 122 117 115 AROM4: .ASCIZ /ROM 4(E59) / pee 
012705 040 064 050 
012710 105 065 071 
012713 05! 040 000 

1388 012716 122 117 115 ROM1: .ASCIZ /ROM 1(E35) / 





CZ7M9BDO M9312/1144 UB! BOOT 
TRAP TABLE 


012721 


RRRIRKKILKE 


ait} 
~ 
OW FS NOWWNOWN NOW 


REE 


MACRO M1111 


115  ROM2: 


115 ROM3: 


END 


24-SEP=79 16:37 PAGE 65-6 


eASCIZ /ROM 2(E33) / 
eASCIZ /ROM 3(E34) / 


eASCIZ /ROM 4(E32)-/ © 










State gal + oy alan UB! BOOT MACRO M1111 
SYMBOL 


SE = 900000 AROMG 012702 
ACDW1 = 000000 AR 004374 
ACDW2 = 000000 ASWRE G= 
ACPUOP= 000000 ATESTN= 000000 






= AUNIT = 000000 
1 = AUSWR = 000000 
AVECT1= 000000 
AVECT2= 000000 
BELL 006674 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITO3 = 000010 
BITOS = 000020 
BITOS = 000040 
BITO06 = 000100 
B1IT07 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT? = 2 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT713 = 026000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BPTVEC= 014 
BRHEAD 007021 
BUF 1 007722 
BUF 2 01 
BUILD 012322 
CALSUM 0026 
CHECKS 002366 
CKSWR = 104406 


CRCL OP 2622 
CRCMSG 007447 
CRLF = 000200 





DAFLAG | 





I 4 
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012170 





OVERT 004104 


PROMP 002702 
PRO = 000000 
PR1 = 000040 
PRe = 000100 
PR3 = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW == 177776 


ROM2 012732 
ROM3 012746 
ROM4 012762 
RSTART 002140 
R6 =%000006 


R7 ie 896 14 


5 
o 
wun 
2 
S 
S 
S 
Oo 
2 


000002 





$DDW14 








001256 


SEQ 0047 


—$—$—$ $$  —SSSSSSSSSSSSSSSSSSSsssSSeseseseseseF 
J 4 
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SYMBOL TABLE SEQ 0048 
$DDW15 001260 SETABL 001156 s SMAMS3 001176 $RDCHR 005750 $TRAP2 006606 
ney 001226 SETEND 001262 $MAMS4 001202 $RDLIN 006070 $TRP = 000013 
$ODW 001230 $FATAL 001140 SMBADR 001124 $RDSZ = 000010 $TRPAD 6620 
$00W4 = =—001232 SFFLG 005460 SMFLG 005456 SRESRE 006526 $TSTM 00 
SDDWS 001234 SFILLC 005206 SMNEW 006231 $RTNAD 002260 $TTYIN 1 
SDDW6 «= 0012.36 $SFILLS 005205 S 001152 $SAVRE 006470 $TYPE 004646 
SODW7 = =—001240 $GET42 002236 $MSGLG 001154 $SETUP= 000124 $TYPEC 005060 
SO0WB = 001242 $GTSWR 005536 SMSGTY 001136 $STUP = 177777 $TYPEX 005176 
001244 D = 000003 S 006220 $SVPC = 000210 $TYPOC 006266 

SDEVCT 001146 $HIB 001122 SMTYP1 001167 $SWR = 160000 $TYPON 006302 

vm =001214 $INTAW 001101 $MTYP2 001173 $SWREG 001160 $TYPOS 006242 
SDOAGN 002256 5212 SMTYP3 001177 $TESTN 001142 T 007150 
SENDAD 2246 $LFLG 005457 $MTYP4 001203 $TKB 005464 SUNITM 001132 
SENDCT 002222 $SMADR1 001170 $NULL 005204 $TKS 005462 $USWR 001162 
SENDMG 002265 SMADR2 001174 SOCNT 006464 $™N = 000001 $VECT1 001206 
SENULL 002262 $MADR3 001200 SOMODE 006466 05202 $VECT2 1210 
SENV 001156 SMADRS 001204 $PASS 001144 $TPFLG 005207 $$GET4= 000000 
SENVM =001157 SMAIL 001136 $PASTM 001130 005200 SOFILL 006465 
SEOP 002176 SMAMS1 001166 $QUES 005210 $TRAP 006564 -$X == 001122 
SEOPCT 002214 $MAMS2 001172 
- ABS. 012776 

000000 1 


00 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 58280 WORDS ( 228 PAGES) 

DYNAMIC MEMORY: 20434 WORDS ( 78 PAGES) 

ELAPSED TIME: 00:05:20 
CZ7M9BDO,CZM9BDO0.SEQ/NL : TOC/CRF /-SP=CZM9BDO. SML, CZM9BDO.P11 


K 4 

CZM9BDO CREATED BY MACRO ON 24-SEP-79 AT 16:40 PAGE 1 , 
SYMBOL CROSS REFERENCE CREF SEQ 0049 
SYMBOL VALUE REFERENCES 
ABASE = 000000 61-469 1-469 
ACDW1 = 000000 61-469 61-469 
ACDW2 = 000000 61-469 61-469 
ACPUOP = 000000 61-469 61-469 
ADDWO = 000000 61-469 61-469 
ADDW1 = 000000 61-469 61-469 
ADDW10 = 000000 61-469 61-469 
ADDW11 = 000000 61-469 61-469 , 
ADDW12 = 000000 61-469 61-469 
ADDW13 = 000000 61-469 61-469 
ADDW14 = 000000 61-469 61-469 
ADDW15 = 000000 61-469 61-469 
ADDW2 = 000000 61-469 61-469 
ADDW3 = 000000 61-469 61-469 
ADDW4 = 000000 61-469 61-469 
ADDWS = 000000 61-469 61-469 
ADDW6 = 000000 61-469 61-469 
ADDW7 = 000000 61-469 61-469 
ADDW8 = 000000 61-469 61-469 

Dw9 = 000000 61-469 61-469 
ADEVCT = 0G0000 61-469 61-469 
ADEVM = 000000 61-469 61-469 
AENV = 000000 61-469 61-469 
AENVM = 000000 61-469 61-469 
AFATAL = 000000 61- - 
ALPHCK 011632 65-1242 #65-1253 
AMADR1 = 000000 61- - 
AMADR2 = 000000 61-469 61-469 
AMADR3 = 000000 61-469 61-469 . 
AMADR4 = 000000 61-469 61-469 
AMAMS1 = 000000 61-469 61-469 
AMAMS2 = 000000 61-469 61-469 
AMAMS3 = 000000 61-469 61-469 
AMAMS4 = 000000 61-469 61-469 
AMSGAD = 000000 61-469 61-469 
AMSGLG = 000000 61-469 61-469 
AMSGTY = 000000 61-469 61-469 
AMTYP1 = 000000 61-469 61-469 
AMTYP2 = 000000 61-469 61-469 
AMTYPS = 000000 61-469 61-469 
AMTYPS = 000000 61-469 61-469 
APASS = 000000 61-469 61-469 
APRIOR = 000000 61-469 
APTCSU = 000040 61-1036 #61-1037 
APTENV = 000001 61-1036 61-1037 #61-1037 
APTER1 = 000001 #61-436 61-666 
APTER2 000002 #61-437 61-678 
APTER3S = #61-438 61-689 
APTERS = 000010 #61-439 61-695 
APTSIZ = 000200 61-472 #61-1037 
APTSPO = 61-1036 61-1037 = #61- 


000100 1037 
ARG1 012316 61-904 *65-1207 = 65-1212 = *65-1271 = 65-1317 = #65-1365 


CREATED BY MACRO ON 24-SEP-79 AT 16:40 


CZM9BD0 
SYMBOL re REFERENCE 
SYMBOL 


Anco 015320 
AROM 006650 
AROM1 012636 
AROM2 012652 
AROMS «012666 
AROM4 012702 
AROUND 004374 
ASWREG = 000000 
ATESTN = 000000 
IT = 000000 
AUSWR = 000000 
AVECT1 = 000000 
AVECT2 = 000000 
BELL 006674 
BITO = 000001 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000004 
BITO3 = 000010 
BITO4 = 000020 
BITOS = 000040 
BIT06 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 2 
BITI0 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BPTVEC = 14 
BRHEAD 007021 
BUF 1 007722 
BUF 2 010002 
BUILD 012322 
CALSUM 002604 
CHECKS 002 
CKSWR = 104406 
CLEAR 011116 
CONER1 012302 
CONER2 012304 
CONFIN 012312 


REFERENCES 
61-903 


*61-512 


61-432 
61-881 


61-885 
61-951 


#62-1066 
61- 


#61- ~565 
#65-1116 
: 


65 
65- 1931 


*65-1318 


#61-945 


61-672 


PAGE 
CREF 


465-1366 


61 
61 


2 


-726 
-783 


#65-1367 


61-806 
61-789 


#65-1360 
#65-1363 


#64-1088 


61-790 


61-846 


61-850 


#64-1091 


eo 


CZ7M9BD0 

SYMBOL “ore REFERENCE © 
SYMBOL VALUE 
CONME S yO 13350 
CONONE = 000400 
CONTWO = 001000 
CON1 011134 
CON2 011162 
CR = 000015 
CRCERR = 20 
CRCLOP 002622 
CRCMSG 007447 
CRLF = 200 
DAF LAG 003376 
DDISP = 177570 
DEVCOD 003164 
DEVF IN 012314 
DISPLA 0011 
DISPRE 000174 
DRHE AD 006754 
DSWR = 177570 
DUPERR = 002 
EHEADT 004436 
EMTVEC = 000030 
END 011270 
ENDSEQ 012276 
ERMES1 012376 
ERMES2 012455 
ERMES3 012535 
ERMES4 012611 
ERRCNT 001120 
ERRHAN 004042 
ERRMSG 010516 
ERROR = 104 
ERRVEC = 

ER1MSG 007257 
ER2MSG 007223 
ER3MSG 007315 
ER4MSG 007373 
EXCADD 002676 
F ILBUF 464 
FILTAB 011544 
FINISH 012324 
FIRSTA 002674 
FIRSTB 001114 
FLAG 012310 
GNS = weekeke 
GTSWR = 104405 
HOL CK 1 011226 
HOL CK2 011240 


CREATED BY 


65-1160 


#61-959 
65-1148 


465-1144 


MACRO ON 24-SEP-79 AT 16:40 
REFERENCES 


#65-1379 


61-818 
65-1176 
61-588 


61-473 
*61-472 
61-472 


#65-1150 
65-1288 


3 
61-1043 
61-1043 


PAGE 3 
CREF 


61-1036 
#61-766 


#65-1357 


61-651 
#64-1096 
61-472 


65-1175 


#65-1368 
61-594 


61-1043 
61-1043 
61-1043 


61-849 
65-1324 


61-1036 


65- 1323 


61-608 


61-1043 
61-1043 
61-1043 


61-857 
65-1335 


61-679 


61-493 


61-853 
65-1334 


#61-630 


61-1043 
61-1043 


61-898 


61-690 


61-505 


61-897 
65-1337 


61-1043 
61-1043 


61-955 


61-696 


61-905 


61-981 


#61-878 


61-927 


61-1043 
61-1043 


SEQ 0051 


CZM9BD0 CREATED BY MACRO ON 24-SEP-79 AT 16:40 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE . 


REFERENCES 
#61-432 


61-829 
61-1036 


464-1094 
#64-1095 
61-476 


#63-1077 


61-684 
#61-643 


61-432 
 61+653 
#61-1043 
#61-1043 
*61-787 


61-836 
65-1162 


61-592 
61-858 


65-1196 


65-1207 
65-1329 


61-1001 


#61-949 


61-792 


#61-778 


#61-801 


*61-821 


PAGE 4 

CREF 
61-840 
65-1178 
61-625 
61-934 
65-1320 


*65-1209 
*65-1331 


#61-1026 
61-1028 
61-1008 


61-899 


65-1150 


61-854 
65-1192 


#61-632 
61-982 
#65-1370 


*65-1210 
*65-1332 


61-1010 


61-941 


65-1164 


61-932 61-977 


61-1036 


65-1271 = *65=1273 = *65=1274 


#64-1093 


#65-1361 


61-979 


65-1317 


SEQ 0052 





7™98D0 CREATED BY MACRO ON 24-SEP=79 AT 16:40 omer 5 


C 
SYMBOL CROSS REFERENCE SEQ 0053 
SYMBOL VALUE REFERENCES 
ROMCNT 002602 61-565 61-566 61-581 $1-582 #61-598 61-912 
ROME RR 001110 #61-462 61-546 61-575 61-588 61-649 61-666 61-678 61-689 61-695 
61-792 61-888 61-889 61-899 61-901 61-908 61-910 61-941 61-954 
"65-1197 = #65-1206 = *65-1270 3=— *65- 1285 65-1310 
ROMF IN 001116 61-465 61-489 61-501 *61-513 61-515 61-521 61-566 61-582 61-728 
61-939 65-1141 65-1144 65-1170 65-1233 65-1293 
ROMNM 011350 65-1158 65-1159  #65-1166 
ROMNUM 006662 61-1049 #61-1055 
ROMPTR 006646 61-480 61-913 461-1049 
ROMT YP 011276 61-825 #65-1152 
ROM1 012716 65-1375 #65-1388 
012732 65-1376 #65-1389 
ROM3 012746 65-1377 #65-1390 
012762 65-1378 #65-1391 
RSTART 062140 61-452 #01-521 61-530 
=%000006 #61-432 *61-492 *61-504 #61-505 61-801 61-860 61-863 61-925 61-929 
61-977 61-986 *61-1026 *61-1029 65-1150 65-1154 65-1164 
R7 * =%000007 #61-432 
SAVREG = 104411 61-878 #61-1043 
SCOPE = 000004 #61-432 
SE QBUF 012262 65-1116 65-1228 65-1253 65-1303 65-1305 65-1307 65-1 308 65-1319 65-1351 
SEQERR = 000200 #61-443 65-1285 65-1310 
SEQMSG 007627 61-966 #64-1081 
SEQTST 011416 61-529 #65-1192 
STACK = 001100 #61-432 61- 
START 001400 61-449 00400 461-432 61-432 
SwO9 = 001000 #61-432 61-4 
Si] = 000002 #61-43 
SW10 = 002000 #61-432 
Sw11 = 004000 #61-432 
SW12 = 010000 #61-432 
Sw13 = 020000 #61-432 
SW14 = 040000 #61-432 
Sw15 = 100000 #61-432 
Swe = 000004 #61-432 
Sw3 = 000010 #61-432 
“ales = 000020 #61-432 
SWS = 000040 #61-432 


7™98D0 CREATED BY MACRO ON 24-SEP-79 AT 16:40 cnet 6 


SYMBOL CROSS REFERENCE SEQ 0054 

SYMBOL VALUE REFERENCES 

Sw6 = 000100 #61-432 

SW7 = 000200 #61-432 

Sw8 = 00 #61-432 

S = 001000 #61-432 

TBITVE = 000014 #61-432 

MP 004630 61-1002 61-1004 61-1012 61-1014 61-1016 #61-1019 

TESTAD 003374 61-507 61-508 61-510 61-517 61-519 61-730 61-731 61-732 61-734 
aS 4 61-744 61-745 61-746 61-748 61-749 61-749 61-750 61-761 
# - 

TIMES 004040 61-490 61-802 61-805 #61-865 

TKVEC = 000060 #61-432 

TPVEC = 000064 #61-432 

TRAPVE = 000034 #61-432 61-472 61-472 

TRTVEC = 000014 #61-432 

TYPE = 104401 61-473 61-530 61-530 61-540 61-861 61-883 61-1036 61-1038 61-1038 
61-1038 61-1038 61-1038 61-1038 61-1038 61-1038 61-1038 61-1039 461-1043 

TYPOC = 104402 61-1038 #61-1043 

TYPON = 104404 #61-1043 

TYPOS = 104403 #61-1063 

SAPTHD 001122 61-468 461-468 

SASTAT = teeeee 61-1037 61-1037 

SATYC 005240 61-1037 #61-1037 

SATY1 005214 61-945 #61-1037 

SATY3 005222 61-949 61-1036 61-1037 

SATYS 005232 #61-1037 

SAUTOB 001100 #61-457 *61-473 61-1038 61-1038 61-1038 

SBASE 001212 #61-469 61-685 

$CDw1 001216 #61-469 61-691 

$CDW2 001220 461-469 

SCHARC 005174 *61-1036 *61-1036 61-1036 *61-1036 #61-1036 

SCKSWR 005466 #61-1038 61-1043 61-1043 

SCMTIAG = *eeene 61-472 61-472 

SCNTLG 006213 61-1038  #61-1038 

SCNTLU 006206 61-1038  #61-1038 

SCPUOP 001164 #61-469 

SCRLF 005211 61-1036 61-1036 61-1036 461-1036 61-1038 61-1038 61-1038 

$DDwO 001222 #61-469 61-659 61-671 

$SDDwW1 001224 461-469 

$DDW10 001246 #61-469 

$DDw11 001250 461-469 

$ODW12 001252 #61-469 

$DDwW13 001254 461-469 

$DDW14 001256 #61-469 

$DDW15 001260 #61-469 

$DDW2 001226 #61-469 

3 1230 #61-469 

SODWS 001232 #61-469 

$DDw5 0012 #61-469 

SDDW6 001236 #61-469 

$DDW7 001240 #61-469 

$DDw8 001242 461-469 

$DDw9 001244 #61-469 
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C 
SYMBOL CROSS REFERENCE SEQ 0055 
SYMBOL VALUE REFERENCES 
SDEVCT 001146 #61-469 
SDE VM 001214 #61-469 
SDOAGN 002256 61-530 61-530 #61-530 
SENDAD 002246 61-454 61-473 #61-530 
SENDCT 002222 61-47 #61-530 
SENDMG 002265 61-530 #61-530 
SENULL 002262 61-530 #61-530 
SENV 001156 #61-469 61-473 61-936 61-1036 61-1037 61-1037 
SENVM 001157 #61-469 61-472 61-643 61-1036 61-1036 61-1037 
SEOP 002176 61-524 61-527 #61-530 
SEOPCT 002214 *61-472 #61-530 61-530 
SE TABL 001156 #61-469 
SE TEND 001262 61-468 #61-469 
SFATAL 001140 #61-469 *61-1037 
SFFLG 005460 *61-1037 *61-1037 61-1037 = *61-1037 461-1037 
SFILLC 005206 61-1036 61-1036 61-1036 461-1036 
SFILLS 005205 61-1036 61-1036 #61-1036 
$GET42 002236 #61-530 
SGT SWR 005536 #61-1038 61-1043 61-1043 
$HD = 000003 61-430 61-430 61-430 
S$HIBTS 001122 #61-468 
SINTAG 001101 #61-458 61-1038 61-1038 61-1038 
SLF 005212 61-1036 61-1036 #61-1036 61-1038 61-1038 61-1038 
SLFLG 005457 *61-1037 #61-1037 
SMADR1 001170 #61-469 
SMADR2 001174 #61-469 
001200 #61-469 
SMADRS 001204 #61-469 . 
SMAIL 001136 61-468 61-468 461-469 61-472 61-473 61-1036 
SMAMS1 11 #61-469 
SMAMS2 001172 #61-469 
SMAMS 3 001176 #61-469 
SMAMSS 001202 #61-469 
SMBADR 001124 461-468 
SMFLG 005456 *61-1037 61-1037 61-1037 461-1037 
SMNEW 006231 61-1038 #61-1038 
SMSGAD 001152 #61-469 *61-1037 61-1037 
SMSGLG 001154 461-469 *61-1037 
SMSGTY 001136 461-469 61-1037 +*61-1037 61-1037 *61-1037 
SMSWR 006220 61-1038  #61-1038 
SMTYP1 001167 #61-469 
SMT YP2 001173 #61-469 
SMTYPS 001177 #61-469 
SMTYP4 001203 #61-469 
SNULL 005204 61-1036 61-1036 61-1036 #61-1036 
SOCNT 006464 *61-1039 *61-1039 #61-1039 
SOMODE 006466 *61-1039 +*61-1039 61-1039 61-1039 *61-1039 #61-1039 
SPASS 001144 #61-469 *61-472 *61-472 61-526 *61-530 *61-530 61-530 61-530 
SPASTM 001130 #61-468 
SQUES 005210 61-1036 61-1036 #61-1036 61-1038 61-1038 61-1038 61-1038 
SRDCHR 005750 #61-1038 61-1043 61-1043 


SRDDEC = s#eene 61-1043 





CZM9BDO 


S UE 
SRDLIN 006070 
SRDOCT = weenee 
DSZ = 000010 
SRE SRE 006526 
$RT 002260 
SR2A = &keetee 
SSAVRE 0064 70 
SSETUP = 000124 
$SSTUP = V77777 
ssvPC == 000210 
$SwWR = 160000 
$S 001160 
STESTN 001142 
$TkKB 005464 
STKS 005462 
STN = 000001 
$TPB 005202 
iSTPFLG 005207 
STPS 095200 
STRAP 006564 
$TRAP2 006606 
$TRP = 000013 
$TRPAD 006620 
STSTM 001126 
STTYIN 006176 
STYPBN = *xeeeee 
STYPDS = «eaenee 
STYPE 004646 
STYPEC 5 
STYPEX 005176 
$TYPOC 006266 
$T YPON 006302 
$TYPOS 006242 
SUNIT 00115uU 
SUNITM 001132 
SUSWR 007162 
$VECT1 001206 
SVECT2 001210 
S$$GET4 = 
SOF ILL 006465 
SASTA = weenne 
. $x = 001122 


REFERENCES 


#61-1038 


9 
61-1037 


a7 
CREATED BY MACRO ON 24=-SEP=79 AT 16:40 
SYMBOL CROSS REFERENCE 
YMBOL - VAL 


61-1043 


61-1038 
61-1043 


61-1043 


61-1036 
61-1036 


#61-430 


#61-1043 
61-1038 


61-1037 


#61-1039 
61-1043 


61-530 
*61-1039 

61-1037 

61-468 





61-1043 


61-1043 


61-1038 
61-1038 


61-1075 
61-1036 
61-1036 


61-1043 
61-1043 


61-1043 
61-1043 


61-1038 


61-1043 


61-1043 


61-1039 


PAGE 8 
CREF 


61-473 
#61-450 


61-431 
61-530 


61-1038 
61-1038 


#61-1036 
#61-1036 
461-1036 


61-1043 


#61-1038 


461-1039 


#61-450 


#61-450 


61-431 
61-530 


461-1038 
461-1038 


61-1043 
61-1043 
61-1043 
61-1043 
#61-1043 
61-1043 


61-1036 


61-1038 
61-1038 


#61-1043 


461-1043 


41-1038 


#61-450 
#61-450 
61-431 
61-530 


61-1038 
61-1038 


61-1043 


61-1043 


61-472 

61-472 

61-1038 
461-450 


61-43) 


61-1043 
61-1043 
#61-1043 
61-1043 
81-1043 


61-47? 
61-472 


61-450 
61-431 


61-1038 
61-1038 





SEQ 0056 


CZM9BDO 


MACRO CROSS REFERENCE 


MACRO NAME 


POR 
SETPRI 
SETTRA 


SETUP 
SKIP 
SLASH 


$SSETM 
$SSKIP 
-EQUAT 
EQUIV 


REFERENCES 
#18-1530 


#46-4607 
948-4730 


61-1036 
#61-432 


#61-432 


461-427 


#61-425 
#61-427 


461-427 


#61-425 
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461-473 


#61-432 

461-432 

461-432 
61-1043 


#61-472 


#61-432 


61-1037 


#61-472 


461-432 


#61-1038 


61-1043 


61-432 
#61-432 
#61-432 
#61-432 

61-430 


#61-450 
61-431 


461-454 
61-469 
61-468 

461-1037 


61-449 


461-473 


61-1037 
61-1037 


61-1043 


#61-472 


461-473 


61-1043 


#61-432 
#61-432 
#61-432 


PAGE 
CREF 


61-1043 


61-435 
61-1038 


61-1043 


#61-432 
#61-432 
461-432 


61-454 
61-1038 


61-1043 


461-432 
#61-432 


61-1041 
61-1040 


61-1043 


61-468 
61-1038 


61-1043 


#61-432 
#61-432 


61-1042 


61-1043 


61-468 


61-1039 


61-1043 


#61-432 
#61-432 


61-1043 


61-468 
61-1040 


61-1045 


. 461-432 


#61-432 


SEQ 0057 


61-1043 


61-469 
61-1043 


61-1043 


#61-432 
#61-432 


C7MOBDO 
MACRO CROSS REFERENCE 
MACRO NAME REFERENCES 
.SDIV 845-4510 
. SEOP #27-2166 
“SERRO #29-264 
“SERRT #30-2842 
-SMULT 864-4647 
. $POWE #40-4159 
“ SRAND #41=4234 
SRDDE #37-3830 
$RDOC #36-3739 
$RE AD #35-3344 
$ROA7 #51-4874 
“ SSAVE #38-3905 
-$SB2D #47-4691 
.$SB20 #49-4792 
$SCOP #28-2401 
$SIZE #42-4287 
$SUPR #50-4830 
$TRAP #39-4007 
$TYPB #34-3237 
$TYPD #33-3160 
$TYPE #31-2929 
$TYPO #32-3064 
$40(A #8-948 


#61-425 


461-428 
#61-425 


#61-427 


#61=425 
#61-428 
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#61-530 


61-1038 
61-1040 


#61-1063 


61-1036 
#61-1039 


PAGE 10 
CREF 


SEQ 0058 


